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PREFACE 

The purpose of this booklet is to explain the differ- 
ences that exist between the hypothetical DELTA 63 fin 
PROGRAMMING AND CODING DIGITAL COMPUTERS) and the 
IBM 709-7090-7094 digital computers. It is deemed impor- 
tant that the reader "go on" a computer early in his 
studies. This booklet, used in conjunction with the book, 
attempts to permit him to do just that. 

The book itself is self-contained; it stands by 
itself and makes no references to this booklet. The 
booklet, however, is tied intimately to the book. There 
are many references to the latter, indicated by the speci- 
fic mention of pages. 

The plan for the joint use of book and booklet is as 
follows. The reader follows the book with reference to 
the workplan of this booklet (placed at the start of this 
booklet). The workplan indicates when material here is to 
supplement, modify , or replace material in the book. The 
reader then makes appropriate references as noted. 
Material here follows the plan of the book and is placed 
in proper sequence. In general, the book material in 
small type, which is of a specific nature (specific to the 
DELTA 63), is supplemented, modified or replaced. 

The effect of this joint usage is to yield a textbook 
that is of general structure, illustrated by coding for 
the IBM 709-7090-7094 computers. Characteristics of these 
computers, their repertoires of instructions, and examples 
of their coding appear in this booklet. A number of 
additional examples are included to reflect the special 
features and instructions of the IBM 709-7090-7094 computers 

Computer manuals, published by IBM on the three 
computers, should also be used. 

Part I of the book is general in its approach and so 
needs no modification here. Parts II and III, however, are 
largely specific and so are well represented in this 
booklet. 

An index to the 7090 instructions appearing in this 
booklet follows the regular index. 



Philip M. Sherman 
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WORKPLAN 

This workplan indicates where the material in the 
booklet is to be used to supplement , modify , or replace 
the corresponding material in the book, PROGRAMMING AND 
CODING DIGITAL COMPUTERS. (S, M, and R indicate supple- 
ment, modify, and replace. These characters appear at 
each section within the booklet.) 
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Chapter 5 
BASIC OPERATIONS 



(r) _ ( 8 4 # 4 _ 85.5*) 

GENERAL STRUCTURE OF 709/7090/7094 COMPUTERS 

The three computers are very similar, having the same 
memory capacity and essentially the same special registers 
and instructions. The 709 is slower than the 7090 by a 
factor of approximately 5; the 7094 has a few additional 
features and instructions. The three will be referred to 
by reference to the 7090.** 

The IBM 7090 computer has 32,768 36-bit words, usually 
addressed octally, 00000 through 77777. Bits in memory 
words are labeled S, 1, 2, . .., 35. The S-bit holds the 
sign, so that a signed 35-bit number can be stored in each 
word; a positive sign is stored as a and a negative sign 
is stored as a 1. 

Magnetic tapes are connected to the computer for 
input-output purposes. Information may be read from 
magnetic tape or punched cards and may be written on tape, 
punched ;on cards, or printed on paper. Data transmitted 
between memory and an input-output unit must pass through 
a data channel . 

Each instruction is placed in one word in memory 
Most instructions have the format shown in Figure 5.1. 
Bits S and 1 through 11, the operation field, hold the 
operation code. Bits 21 through 35, the address field, 
hold the operand address of the instruction. The octal 
representation of the instruction shown in Figure 5.1 is 
+050000015056. The operation code is +0500o and the 
operand address is 150560. 



*Pages given at heads of sections indicate the pages in 
the text replaced by the material here. The digit after 
the decimal point indicates position on the page; thus 
"84.4" indicates a point about 4/10 down the page. 

**De tails on the 7090 and 7094 computers are available in 
these IBM Manuals: "Reference Manual - IBM 7090 Data 
Processing System" (Form A22-6528-4, 1962) and "Reference 
Manual - IBM 7094 Data Processing System" (Form A22-6703, 
1962). 
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operation code address 

Figure 5.1. IBM 7090 instruction word. 

Integers and fixed-point numbers each may occupy,. 
35 bits, filling bits 1-35; the S-bit is used for^fcii^ 
sign. Floating-point numbers each also occupy c0e word; 
one number is shown in Figure 5.2. Bits 1 through 8 
hold the characteristic, and bits 9 through 35 hold the 
absolute value of the fraction. Characteristics are 
formed by adding 200s (128) to the powers of 2 in floating- 
point form. The binary point is assumed to be immediately 
to the left of the fraction. The octal form of the number 
shown in Figure 5.2 is -20622050400, which is the number 
-18.0790. 

I — implied location of 
I binary point 

liooooiiopiooiooooioioooiooooooooooo 
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Characteristic Fraction 



Figure 5.2. IBM 7090 floating-point number. 

The accumulator register (AC) contains 38 bits, 
labeled S, Q, P, and 1 through 35. The Q and P bits are 
considered to be to the left of bit 1 and provide for 
overflow in the AC. The multiplier-quotient register (MQ) 
contains 36 bits, numbered as in a memory word. During the 
execution of special instructions, including multiplication 
and division, the MQ is used as the right-hand extension 
of the AC. 



(R) (85.8 - 86.3) 

ADDITION AND SUBTRACTION 

Following are several of the arithmetic and data- 
moving instructions of the 7090. In these descriptions, 
the following sequence of information is given: The 



instruction name in- full, a 3-letter mnemonic abbreviation 
for the instruction, the operation code, the execution 
time in machine cycles, and the description. A machine 
cycle is 12, 2.18, and 2 microseconds for the 709, 7090 
and 7094 computers, respectively. The Y that is mentioned 
refers to a memory location and represents an operand 
address. All registers affected by the instruction are 
mentioned. 

CLEAR AND ADD (CLA Y) (+0500); 2 cycles. The C(Y) 
replaces the C(AC) S .1-35.* Positions P and Q of the AC are 
set to zero. The C(Y) is unchanged. 

STORE (STO Y) (+0601); 2 cycles. The C(AC) q -, ,, 
replaces the C(Y). The C(AC) is unchanged. *>>1--3d 

ADD (ADD Y) (+0400); 2 cycles. The C(Y) is added 
algebraically to the C(AC) and the sum is placed in the AC. 
The C(Y) is unchanged. 

SUBTRACT (SUB Y) (+0402); 2 cycles. The C(Y) is 
subtracted algebraically from the C(AC) and the difference 
is placed in the AC. The C(Y) is unchanged. 

HALT AND TRANSFER (HTR Y) (+0000); 2 cycles. The 
computer stops upon execution of this instruction. (If 
the start key on the console is pushed, the computer takes 
its next instruction from location Y and proceeds from 
the re . ) 

As the result of an addition or subtraction, if the 
C(AC) is zero, the sign of the AC is unchanged. Thus if 
the C(AC) is -60 and the C(Y) is +60, then after the 
addition of the C(Y) the C (AC) = -0. 

( R ) — _™_( 8 6.7 - 87.2) „— — 



Example 5.1 Find the sum of 56, >45, 23, and -39. 
These numbers are located in' sequence, beginning at loca- 
tion 00300. Place the sum in location 00304. 

Since addition is performed in the AC, the first 
number must be loaded into the AC, and all other numbers 
must then be added to the first. Finally, the sum must 
be stored in 00304. The program is written to begin at 
location 00100 and end at location 00105 . Location 00304 
is set aside for the sum. 



^Subscripts on an expression of the form C(X), where X is 
a word or register, refer to the only bits involved; bits 
not mentioned are not involved. 



Location 


Contents 


00100 


+0500 000 00300 


00101 


+0400 000 00301 


00102 


+0400 000 00302 


00103 


+0400 000 00303 


00104 


+0601 000 00304 


00105 


+0000 000 00000 


00300 


+000000000070 


00301 


-000000000055 


00302 


+000000000027 


00303 


-000000000047 


00304 


+000000000000 



(R). 



Remarks 

Load 56 into the AC 

Add -45 to AC, giving 11 

Add 23, giving 34 

Add -39, giving -5 

Store sum in 00304 

Halt 

56 (Numbers are listed 
-45 at left in octal) 

23 
-39 
For sum 



(87.4 - 87. 8). 



Example 5.2 Find the value of m, where 

m = a+b-c+d 

The quantities a, b, c, and d are stored in sequence, 
starting at location 00675. Place the sum in loca- 
tion 00674. 

The structure of this program is similar to the one 
in Example 5.1, except that one quantity (c) is subtracted 
from the C(AC). The program is written to start at loca- 
tion 00020. Location 00674 is set aside for the sum. 



Location 

00020 
00021 
00022 

00023 
00024 

00025 

00674 

00675 
00676 
00677 
00700 



Contents 



+0500 
+0400 
+0402 
+0400 
+0601 
+0000 



000 00675 

000 00676 
000 00677 
000 00700 
000 00674 
000 00000 



+000000000000 

+XXXXXXXXXXXX 
+XXXXXXXXXXXX 
+XXXXXXXXXXXX 
+XXXXXXXXXXXX 



Remarks 

Load a into AC 

Add b, forming a + b 

Subtract c, forming a 

Add d: a+b-c+d 

Store sum 

Halt 

For sum 

a 

b 

c 

d 



+ b - c 



The contents of the four words containing a, b, c, 
and d are shown as x's with plus signs. The x's stand for 
any digits, and the signs may be negative. 



(S)' 



■(At 87.10*)' 



If two numbers are added, there may be an overflow 
bit (a carry) to the left of bit 1 in the accumulator, 
into bit P. Carries from bit P are placed in bit Q, and 
carries from bit Q are lost. When a "l" bit is so place 
in bit P, overflow occurs and the overflow indicator is 
turned on. An instruction, TRANSFER ON OVERFLOW, may be 
used to test the status of this indicator. 



(R). 



(88.4 - 89.1)' 



MULTIPLICATION AND DIVISION 

MULTIPLY (MPY Y) (+0200); 2-1.4 cycles. The C(Y) is 
multiplied algebraically by the C(MQ), and the product is 
placed in the AC and the MQ. The less significant half 
of the product is placed in the MQ, and the more signifi- 
cant half is placed in the AC. Positions P and Q of the 
AC are set to zero. The sign of the product is placed in 
the signs of both registers. 

To illustrate multiplication, let us assume for 
simplicity that the AC, the MQ, and location Y have 4 bits 
and a sign each. Let 

C(MQ) = -1011 2 
C(Y) = +0111 2 

The product of these numbers is -01001101; it appears 
in the AC and the MQ as follows: 



AC : -0100 



MQ: -1101 



Note that, if the product is small enough (4 bits 
here, or 35 bits in the actual MQ) all significant bits 
are located in the MQ. 

DIVIDE OR HALT (DVH Y) (+0220); 3-l4 cycles. The 
°( ac )q,P,1-35 and the C(MQ) 1 _35 are treated as a 72-bit 
dividend and the C(Y) is treated as a 35-bit divisor. The 
sign of the AC is the sign of the dividend. If the 



*This means "at the bottom of 87." 



magnitude of the C(Y) is greater than the magnitude of the 
C(AC), division takes place. The 35-bit quotient is 
placed in the MQ and the remainder is placed in the AC. 
The C(Y) is unchanged. If the magnitude of the C(Y) is 
not greater than the magnitude of the C(AC), division does 
not occur and the computer stops with the divide-check 
indicator on; the C(AC) and the C(MQ) remain unchanged. 

A similar instruction, DIVIDE OR PROCEED, is available. 
If division does not occur because the magnitude of the 
C(Y) Is too small, division does not occur and the computer 
continues in sequence with the next instruction. 

To illustrate division, assume again that registers 
and words have 4 bits and a sign each. Let the MQ contain 
the number 14 (163) and the C(AC) = 0. Let the C(Y) = 4. 
The quotient is 3 and the remainder is 2. The answer 
appears as follows: 

AC: +0010 MQ: +0011 

Instructions to load and store the MQ are required to 
perform these operations. 

LOAD MQ (LDQ Y) (+0560); 2 cycles. The C(Y) replaces 
the C(MQ). The C(Y) is unchanged. 

STORE MQ (STQ Y) (-O60O); 2 cycles. The C(MQ) 
replaces the C(Y). The C(MQ) is unchanged. 

It is sometimes necessary to move the C(AC) to the 
MQ, or vice versa, and to clear the AC except for its 
sign. The following instructions are so used. 

EXCHANGE AC AND MQ (XCA) (+0131) ; 1 cycle. The 
C(AC)s,i-35 and the C(MQ) are exchanged. Positions P 
and Q 6f the AC are set to zero. 

This instruction requires no operand; the address 
field is left empty (00000) normally. 

CLEAR MAGNITUDE (CLM) (+0760,0); 2 cycles. The 
C(AC)q,p 1-35 are cleared and the C(AC)s is unchanged. 

( R ) (89.5 - 91.1)— 

Example 5.3 Determine the value of the expression 

f = (a+b)(c+d)/ac 

The quantities a, b, c, and d, having the values 1.5, -3.5, 
12.1 and 14, respectively, are stored in sequence, starting 
at location 01000. Place the value of f in location 00777. 
Scale all numbers upward by a factor of 10. 



7 



The numbers in this problem are small enough so that 
the MQ alone suffices for all calculations; the AC is not 
needed. It is necessary to store an intermediate result, 
(a+b), temporarily. This is stored in the location set 
aside for f, location 00777. 

Before a division occurs, it is necessary to clear 
the AC unless it is known for certain that it contains 
zero. Here, we are assuming that all products are less 
than 35 bits, so that the AC is zero after each multi- 
plication. After the first division in this program, a 
remainder might be left in the AC, so that the register 
is cleared, except for sign. The sign must be kept in 
the AC because that is taken as the sign of the dividend. 
Note the use of the XCA instruction. 

(In this listing, the six rightmost octal digits of 
the AC and the MQ are shown with each instruction; the 
contents after execution are shown. Unknown quantities 
are shown by x's.) 



Location 


Contents 




C(AC) 




C(MQ) 


Remarks 


00100 


+0500 000 01000 


+ . 


. .000017 


+ . 


.xxxxxx 


Load a 


00101 


+o4oo 000 01001 


™ 4 


, .000024 


+ . 


•xxxxxx 


Add b 


00102 


+0601 000 00777 


M m 


.000024 


+ . 


.xxxxxx 


Store temp. 


00103 


+0500 000 01002 


+. 


.000171 


+ . 


.xxxxxx 


Load c 


00104 


+o4oo 000 01003 


+ . 


.000405 


+ . 


.xxxxxx 


Add d 


00105 


+0131 000 00000 


+ . 


.xxxxxx 


+ . 


.000405 


AC to MQ 


00106 


+0200 000 00777 


•■ ♦ 


.000000 


™" • 


.012144 


(a+b)(c+d) 


00107 


+0220 000 01000 


™ • 


.000000 


™ i 


.000534 


Divide by a 


00100 


+0760 000 00000 


— • 


.000000 


~ • 


.000534 


Clear AC, 
keeping s: 


00111 


+0220 000 01002 


™ • 


.000152 


™ • 


.000002 


Divide by c 


00112 


-0600 000 00777 


™ • 


.000152 


™ • 


.000002 


Store f 


00113 


+0000 000 00000 


™ • 


.000152 


■" • 


.000002 


Halt 


00777 


+000000000000 


For result 


(f) 






01000 


+000000000017 


a 


(Numbers 


are scaled 


up by 10) 


01001 


-000000000043 


b 










01002 


+000000000171 


c 










01003 


+000000000214 


d 











8 

After multiplication, the C(MQ) =121448 (5220). Division 
by 178 ( 1 5) S lves 53^8 (3^8) with no remainder. Division 
of this by 1718 (121) gives 2 with a remainder of 1528 
(106). The value of f stored is 2; a more accurate value 
is 2.9, but the 9-digit is lost unless precautions are 
taken. Scaling all four original quantities as indicated 
does not improve accuracy. To avoid the loss of accuracy 
in division, it is necessary to scale the dividend up more 
than the divisor. This problem is characteristic of fixed- 
point division in any computer and provides a good argu- 
ment for floating-point arithmetic. 

In loading the MQ for division using LDQ 
done here), the sign of that register must be 
the AC. This may be accomplished as follows: 



(which is not 
placed in 



+0560 000 xxxxx 
+0500 000 xxxxx 
+0760 000 00000 



Load MQ 

Load AC with same number 

Clear AC, keeping sign 



Example 5.4 Evaluate p^; p = -13 and is stored in 
location 00160. Place the answer in the MQ. 



L ocation 

00200 
00201 
00202 

00203 
00204 



Contents 

+0560 000 00160 

+0200 000 00160 
+0200 000 00160 
+0200 000 00160 
+0000 000 00000 



C(MQ) 

-000000000015 
+000000000251 
-000000004225 
+000000067621 
+000000067621 



Remarks 

Load p into MQ 
Multiply: p 2 
Multiply: p3 



Multiply: 
Halt 



P 



4 



00160 



-000000000015 



P 



Example 5.5 Evaluate the polynomial 



F = 8X- 3 + 4x : 



x 



x is stored in location 01000; P is to be left in the MQ. 

If the program is written in the manner of earlier 
programs - evaluating each term separately and storing It 
temporarily - 16 instructions are required. If we note, 
however, that terms have common factors, some coding and 
program execution time can be saved. For example, all 
three terms have the factor x2. The function can be 
regrouped as follows: 

F = x 2 (x(4+8x 2 ) - 1) 



The program can be written by starting within the inner 
parentheses and performing all operations in sequence, 
ending the program outside the brackets. 



Location 

00100 
00101 
00102 
00103 
00104 

00105 
00106 

00107 
00110 
00111 
00112 
00113 
00114 



Contents 



0560 
0200 
0200 
0131 
0400 
0131 
0200 
0131 
0402 
0131 
0400 
0400 
0000 



000 01000 
000 01000 
000 00201 
000 00000 
000 00200 
000 00000 
000 01000 
000 00000 
000 00202 
000 00000 
000 01000 
000 01000 
000 00000 



Remarks 

Load x to MQ 
Multiply by x: x , 
Multiply by 8: &V 
8x2 to AC Q 
Add 4: 4 + 8x d 
*Sum to MQ 
Multiply by x 
Product to AC 
Subtract 1 
Difference to MQ 
Multiply by x 
Multiply by x 
Halt 



00200 +000000000004 4 

00201 +000000000010 8 

00202 +000000000001 1 
01000 +xxxxxxxxxxxx x 



(R). 



(92.1 - 92.6) 



ANALYSIS FOR CODING 

Example 5.6 Write a program to evaluate a general 
fifth-order polynomial, leaving the result in the AC. The 



coefficients 
starting 
The 



a, b, c, d, e, 



and f are located in sequence 
at location 01000; x is in location 00700. 
coding for this problem follows directly from the 
last form for G at the bottom of page 91 in the book. The 
program starts within the inner parentheses and proceeds 
outward. 



Location 


Contents 


Remarks 


00100 


+0560 


000 


01000 


Load a into MQ 


00101 


+0200 


000 


00700 


Multiply by x: 


00102 


+0131 


000 


00000 


Product to AC 


00103 


+0400 


000 


01001 


Add b: ax + b 


00104 


+0131 


000 


00700 


Sum to MQ 


00105 


+0200 


000 


00700 


Multiply by x: 


00106 


+0131 


000 


00000 


Product to AC 


00107 


+0400 


000 


01002 


(ax+b)x + c 


00123 


+0400 


000 


01005 


G in AC now 


00124 


+0000 


000 


00000 


Halt 



ax 



(ax+b)x 
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Several instructions are omitted; the sequence of 
four instructions (EXCHANGE, MULTIPLY, EXCHANGE, and ADD) 
is repeated three times after location 00107. 

The time for the execution of instructions should be 
considered in setting up a problem of this type, especially 
if the sequence is to be repeated many times. The 
approach taken in Example 5.6 is relatively efficient, 
since operations are minimized for the general case. Note 
that multiplication takes 2 to 14 cycles, addition takes 
2 cycles, and the exchange instruction takes 1 cycle. 

(R) (93.3 - 93*6) 

TRANSFER INSTRUCTIONS 

The transfer instructions on the IBM 7090 correspond 
to the .lump instructions of the book and on some other 
computers. 

TRANSFER (TRA Y) (+0020); 1 cycle. The computer 
takes its next instruction from location Y and proceeds in 
sequence from there. 

TRANSFER ON PLUS (TPL Y) (+0120); 1 cycle. If the 
sign of the AC is plus, the computer takes its next 
instruction from location Y and proceeds from there. If 
it is minus, the computer takes the next instruction in 
sequence. 

TRANSFER ON MINUS (TMI Y); (-0120); 1 cycle. If the 
sign of the AC is minus, the computer takes its next 
instruction from location Y and proceeds from there. If 
it is plus, the computer takes the next instruction in 
sequence . 

TRANSFER ON ZERO (TZE Y) (0100); 2 cycles. If the 
C(AC)q p i_35 is zero, the computer takes its next 
instruction from Y and proceeds from there. If it is not 
zero, the computer takes the next instruction in sequence. 

TRANSFER ON NO ZERO (TNZ Y) (-0100); 2 cycles. If 
the C(AC)q p -i_qc is not zero, the computer takes its 
next instruction from Y and proceeds from there., If it 
is zero, the computer takes the next instruction in sequence 



( M ) (93.6 - 9^.4) 

(The following comments apply to 93.6 - 94.4, which 
should be read with these in mind.) 
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The following correspondence of Instructions exists: 



DELTA 63 


IBM 7090 


JUMP 


TRA 


JUMPMI 


TMI 


JUMPNZ 


TNZ 


JUMPPL 


TPL 


LOAD 


CLA 



The concepts described are of a general nature. 
(R) (94.5 - 97.10) — 



CODING SOME DECISIONS 

Example 5.7 Code the following operation: If i ^ n, 
continue at location 00150; if i > n, continue in sequence 
The flowchart in Fig. 5.3a in the book pictures this 
decision. 

The two conditions can be rewritten as 
and "if i - n > 0. " Since a test against n 
able directly, this revision is necessary, 
jump instructions are used to check for the 
tion, which is really two decisions as far 



"if i - n £ 0" 

is not avail- 
Conditional 
first condi- 
as the computer 



If 



is concerned: "if i - n < 0" and "if i - n = 0. 

neither condition holds, the program continues in sequence. 

The flowchart in Pig. 5.3b in the book pictures the revised 

decision. 



Location 

00170 
00171 
00172 
00173 



Contents 

CLA 00500 
SUB 00501 
TMI 00150 
TZE 00150 



Remarks 

Load i, located in 00500 
Form i - n; n is in 00501 
Jump if (l - n) < 
Jump if (i - n) =0 



Control will go t 

In the next 
decisions must be 
can make only two 
transfer instruct 
multiple decision 

Example 5.8 
(2) positive but 
control, respecti 
01000. This deci 



o 00174 if i - n > 0, as required, 
two examples, three-way and four-way 

made. Since all transfer instructions 
-way decisions, it is necessary to place 
ions in sequence to accomplish these 
s . 

If the C(00500) is (l) negative or zero, 
less than 20, or (3) 20 or greater, send 
vely, to (1) 00600, (2) 00700, or (3) 
sion appears in Fig. 5.4a in the book. 
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Let the 
1. 
2. 

3. 
The steps In 

1. 

2. 
3. 



4. 



C(00500) = x. The conditions are 

If x £ 0, go to 00600; 

if < x < 20, go to 00700; 

if 20 £ x, go to 01000. 
the coding process can be listed as follows: 

Place x in the AC; jump to 00600 If 

negative . 

Jump to 00600 if zero. 

Having taken care of nonpositive x, form 

x - 20 because condition 2 now becomes 

"if x - 20 < 0, go to 00700." Jump as 

Indicated. 

Having taken care of x < 20, jump to 01000. 



A modified flowchart is drawn in Fig. 5.4b in the book. 



Location 



Contents 



Remarks 



00100 
00101 
00102 

00103 
00104 

00105 
00200 



CLA 00500 Load x 

TMI 00600 Transfer if 

TZE 00600 Transfer if 

SUB 00200 Form x - 20 

TMI 00700 Transfer if 

TRA 01000 Transfer if 

+000000000024 20 



x 
x 



is 

is 

x - 

x - 



negative 
zero 



20 
20 



< 

1 








The instructions at 00600, 00700, and 01000, and subsequent 
instructions are not listed. 

Example 5.9 Either the quantity a (located in 00400) 
or the quantity b (located in 00402) is to be stored in 
location 00000, depending on these conditions : 

b is zero, store a; 

b is 

b is 

b Is 



a 

a 
a 
a 



is 
is 
is 
is 



positive 
positive 
negative 
negative 



and 
and 
and 
and 



nonzero, 
zero, store ~, 
nonzero, store 



store 
b 



If 

if 

if 

If a Is negative and b Is nonzero, store a. 

To simplify the coding, assume that a is not zero. 
The flowchart for this problem is drawn in Fig. 5. 5a in 
the book. The coding follows directly from the flowchart, 
which is labeled with addresses to match the program 
following. As the result of the two tests (on a and on b), 
a four-way branch occurs. The four paths merge 
paths, however, because there are only 
taken. A modification of part of the 
in Fig. 5.5b in the book. 



into two 
two actions to be 
flowchart is shown 
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Location 


Contents 


Remarks 


00120 


CLA 00400 


Load a 


00121 


TPL 00125 


Go to 00125 if a is + 


00122 


CLA 00402 


Load b 


00123 


TZE 00130 


Go to 00130 if b Is 


00124 


TRA 00127 


Go to 00127 if nonzero 


00125 


CLA 00402 


Load b 


00126 


TNZ 00130 


Go to 00130 if b is nonzero 


00127 


CLA 00400 


Load a again 


00130 


ST0 00000* 


Store AC (a or b) in 00000 


00131 


HTR 


Halt 



*Some IBM printing equipment uses the symbol "0" for the 
letter and the symbol "0" for zero. This printing 
equipment uses no small letters. 



Chapter 6 
SYMBOLIC CODING 



( R ) (102.7 - 103.1) 

A SYMBOLIC PROGRAM 

Example 6.1 Evaluate the polynomial 

F = 8x 5 + 4x 3 - x 2 

x is stored in location X; F is to he left in the AC. 

In this program, written in the symbolic language FAP 
for the IBM 7090, 0NE, FOUR, and EIGHT are used for the 
address of the constants 1, 4, and 8. This problem was 
coded in Example 5-5. 



Locn. Oper. 


Address 


START LDQ 


X 


MPY 


X 


MPY 


EIGHT 


XCA 




ADD 


F0UR 


XCA 




MPY 


X 


XCA 




SUB 


0NE 


XCA 




MPY 


X 


MPY 


X 



HTR 

0NE +000000000001 
F0UR +000000000004 
EIGHT +000000000010 

X +XXXXXXXXXXXX 

( S ) (At 104.4) 

THE ASSEMBLER LANGUAGE 

An assembly language very commonly used for the 
IBM 7090 computer Is FAP (FORTRAN Assembly Program). FAP 
is a modification of SAP (Symbolic Assembly Program), 
written by United Aircraft for the IBM 704 computer. 
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(r) — (106.8 .-■ 107.1) :— 

INSTRUCTION FORMAT 

The use of the columns on a PAP symbolic card and the 
fields they comprise are as follows: 

Columns Field Contents 

1-6 Location field Symbol (definition) 
8 - 14 Operation field Symbolic operation 
16 - 72 Address field Address and remarks 

Figure 6.1 in the book also applies to a FAP symbolic card. 

The location field may be left blank; several 
instructions in Example 6.1 have no symbols in their loca- 
tion fields. A symbol is defined by being placed in the 
location field of an instruction. The symbol may be 
placed anywhere in the field. Column 7 must be blank. 

The operation field must begin in column 8. The 
variable field contains a symbolic address which must 
begin after at least one blank column following the oper- 
ation, but no later than column 16. Remarks may be used, 
provided at least one blank column precedes them. 

(M) (107.4 - IO9.7)- 



(The following comments apply to 107.4 - 109.7, 
which should be read with these in mind.) 

FAP pseudo-operations correspond exactly in their 
function and use to the pseudo-operations in the book. 
The following correspondence exists: 



HAP FAP 



0RIGIN 


0RG 


END 


END 


0CTAL 


0CT 


DECML 


DEC 


BL0CK 


BSS 



The symbol "BSS" stands for block starting with symbol; 

a symbol in the location field is normally used Fo identify 

the block. 



16 



If the operation and variable fields of a symbolic 
card are left blank, FAP assembles a full word of O-bits 
If the operation field alone is blank, O-bits will fill 
bits S, 1, and 2. If the address field alone is blank, 
O-bits will fill bits 21-35, the address field of the 
instruction. 



(S) (At 109. 10)— — 

QUALIFIERS 

If it is desired to modify integer 
several cards, so that all Integers are 
the SAK pseudo-operation, placed in the _ 
is used. Cards following it, until a second SAK card is 
encountered, are so treated. Successive SAKs reverse 
the mode. A decimal qualifier, /D/, is also available. 
Any integer immediately following this qualifier is 
treated as decimal. 



interpretation for 
treated as octal, 
operation field, 



(R)' 



(110.2 - 110.6) 



THE ASSEMBLY LISTING 

Example 6.2 Following is a listing of the program to 
evaluate the polynomial 



F = 8x 



5 + 4 X 3 _ 



x 



coded in Example 5.6. 

Object program (octal) 



Location 


Contents 


00100 




00100 


+0560 000 00120 


00101 


+0200 000 00120 


00102 


+0200 000 00117 


00103 


+0131 000 00000 


00104 


+0400 000 00116 


00105 


+0131 000 00000 


00106 


+0200 000 00120 


00107 


+0131 000 00000 


00110 


+0402 000 00115 


00111 


+0131 000 00000 


00112 


+0400 000 00120 


00113 


+0400 000 00120 


00114 


+0000 000 00000 


00115 


+000000000001 


00116 


+000000000004 


00117 


+000000000010 


00120 


+000000000000 




00100 



Source program (symbolic) 



Location 


Oper. 


Address 




0RG 


/0/1OO 


START 


LDQ 


X 




MPY 


X 




MPY 


EIGHT 




XCA 






ADD 


F0UR 




XCA 






MPY 


X 




XCA 






SUB 


0NE 




XCA 






MPY 


X 




MPY 


X 




HTR 




0NE 


DEC 


1 


F0UR 


DEC 


4 


EIGHT 


DEC 


8 


X 







END 



START 



(R)- 



(111.5 - 112.1)' 
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STEPS IN PROGRAM ASSEMBLY 

Example 6.3 Compare the quantities p and 
in P and Q, respectively. If p < q, place the 
in NUMBER; if p = q, place the number 2 in NUMBER; if 
p > q, place the number 3 in NUMBER. 

These conditions can : be rewritten: 



q, stored 
number 1 



1. If p - q 

2. if p - q 

3. if P - q 
Case 2 must be checked 



< 0, store 1; 
= 0, store 2; 
> 0, store 3- 
first, because -0 



and 



+0 are 
treated differently. The flowchart is drawn in Pig. 6.2 
in the book. Note that control is sent, to one of three 
places so that the proper number ( 1, 2, or ,3) can be 
obtained for storage in NUMBER. The three possible store 
operations are performed at one location, ST0RE. 



Locn. 


Oper. 


Address 






0RG 


/0/2OO 




START 


CLA 


P 






SUB 


Q 


Form p - q 




TZE 


GET 2 


Jump if zero 




TMI 


GET1 


Jump if minus 


GET3 


CLA 


THREE 


Here if plus... 3 to AC 




TRA 


ST0RE 




GET1 


CLA 


0NE 


1 to AC 




TRA 


ST0RE 




GET 2 


CLA 


TW0 


2 to AC 


ST0RE 


ST0 
HTR 


NUMBER 




P 








Q 








NUMBER 








0NE 


DEC 


1 




TW0 


DEC 


2 




THREE 


DEC 


3 






END 


START 





Chapter 7 
PROGRAM LOOPS 



(R)- 



WHY USE LOOPS? 



■(120.1 - 120.4)' 
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Example 7.1 Compute the value of x". The value of 
x Is small enough so that the number x 10 does not exceed 
the capacity of a computer word. 

Prom Example 5.4, we note that a sequence of MPY 
Instructions suffices. 



Locn. 


Oper. 


Address 




LDQ 


X 




MPY 


X 




MPY 


X 




MPY 


X 




MPY 


X 




MPY 


X 




MPY 


X 




MPY 


X 




MPY 


X 




MPY 


X 




STQ 


RESULT 




HTR 




X 






RESULT 







n 



( R ) (120.8 - 122.3)- 

A SIMPLE LOOP 

Example 7.2 Compute the value of x 1 
A flowchart appears in Fig. 7.1 in the book. The 
quantity p is the current value of the product; its 
initial value is 1. Counting is done with index i; its 
initial value is also 1. The important step is the multi- 
plication of the accumulated product by x, producing one 
more power of x: 

p X x -» p 



18 



19 
To allow for the case n = a test is made; in that event, 
p is set equal to 1. The symbolic names used to label 
flowchart boxes correspond to the symbols in the following 
program. The test for loop termination is accomplished 
by checking (i - n) against zero. 



Locn. Oper. Address 



START 


CLA 


0NE 




ST0 


P 




ST0 


I 


TESTN 


CLA 


N 




TZE 


D0NE 


MLTPY 


LDQ 


P 




MPY 


X 




STQ 


P 


1NCRSE 


CLA 


I 




ADD 


0NE 




ST0 


I 


TEST 


SUB 


N 




TMI 


MLTPY 




TZE 


MLTPY 


D0NE 


HTR 




N 






X 






P 






I 






0NE 


DEC 


1 



1 to p and i 

Test for zero n 
p«x to p 

i + 1 to i 



Test for end 
Back if not done 



Note that through the use of a program loop it is a 
simple matter to include n as a variable of the problem. 

(r) (123.7 - 124.9) — 

A LOOP WITH ADDRESS MODIFICATION 

STORE ZERO (STZ Y) (+0600); 2 cycles. The C(Y) is 
set to zero and its sign is set plus. 

Example 7.3 Determine the sum of a given set of 
n numbers. The numbers are stored in the block beginnine: 
at NUMBRS; their sum is to be placed at SUM. 

The flowchart is modified to include the operation 
of address modification; it is redrawn in Pig. 7.2 in the 
book. The memory box indicates that a ± is stored in loca- 

p/S?™E2?? RS+1 " 1 ' Thus ' lnltla Hy. the program sums the 
(NUMBRS J; to sum a±,. the program sums the C(NUMBRS+i-l) . 
After the last number is summed, the operand address of the 
ADD instruction is NUMBRS+n-1. The flowchart shows, however 
that the test for the end of the problem follows the modi- 
fication of the index, so that the operand address at the 
time of the test is NUMBRS+n. Thus, the loop must termi- 
nate when the ADD instruction has been modified exactly 
n times. 
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In the following program 
modified after each number is 
or instruction used as a cons 
check for the final value of 
this constant matches the ADD 
does the matching. In additi 
SETWD) is used to "initialize 

It is necessary to set a 
the n numbers. Here, 1000 wo 
also set aside for n. 



, the ADD instruction is 

summed. A data instruction , 
tant, can "be set initially to 
the ADD instruction. When 

the loop terminates; a TNZ 
on, another instruction (at 
" the ADD instruction, 
side a block of words for 
rds are reserved. A word is 



Locn. 


Oper. 


Address 




STZ 


SUM 




CLA 


SETWD 




ST0 


ADDNUM 




ADD 


N 




ST0 


C0MPAR 


L00P 


CLA 


SUM 


ADDNUM 


ADD 


NUMBRS 




ST0 


SUM 




CLA 


ADDNUM 




ADD 


0NE 




ST0 


ADDNUM 




SUB 


C0MPAR 




TNZ 


L00P 


DONE 


HTR 




SUM 






SETWD 


ADD 


NUMBRS 


C0MPAR 






N 






0NE 


DEC 


1 


NUMBRS 


BSS 


1000 



to sum 
Initialize instr. 

Set test word 

Add a number 

Modify instr. 



(ADD NUMBRS+n) 



A number of 7090 instructions have negative operation 
codes: STQ and TNZ are among them. Adding +1 to such 
instructions has the effect of decreasing the address 
portion of the instruction. This difficulty may be avoided 
by the consistent use of the following instructions in 
place of CLA and ST0 for address modification; their use 
ignores the operation code sign, in effect, and arithmetic 
is performed as desired. 

CLEAR AND ADD LOGICAL (CA.L Y) (-0500); 



C(Y) replaces the C(AC) 
are set to zero 



P,l-35" 



Positions S 



2 cycles. The 
and Q, of the AC 
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STORE LOGICAL WORD (SLW Y) (+0602); 2 cycles. The 
C(AC) Pjl _35 replaces the C(Y). The C(AC) is unchanged. 

These Instructions move bit P of a storage word to 
bit S of the accumulator and vice versa, so that arith- 
metic may be performed on the storage word as though it 
werq a 36-bit positive integer. There are other, more 
significant uses for these two instructions; refer to 
Chapter 12. 



(r) (125.6 - 126.4) 

POLYNOMIAL EVALUATION 

Example 7.4 Write a program to evaluate a polynomial 
of order n, for n as large as 100. The number n, the 
n + 1 coefficients, and the variable x are all given. 
These are located, respectively, in N, the block starting 
at C0EFP, and X. The coefficients are b Q ,b 1 ,...,b . 

F = b n x n + b n x n_1 + ... + b, 

A flowchart appears in Pig. 7.3 in the book. The 
program has' a structure similar to that of Example 7.3 
as regards its address modification and initialization. 
The significant operation is the calculation of q, the 
accumulated partial polynomial value. The calculation is 

qx + b 1 -► q 

Reference to Example 5.6 (page 92 in the book) indicates 
why this operation repeated for successive coefficients 
bi yields the value of P. 

Locn. 



L00P 



Oper. 


Address 




CIA 


C0EPP 


b Q to Q 


ST0 


Q 


CAL 


SETWD 


Initialize 


SLW 


M0D 




ADD 


N 




SLW 


C0MPAR 




LDQ 


Q 


q«x + b i to q 


MPY 


X 


XCA 







(cont'd) 
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Locn. Oper. 



M0D 



ADD 
ST0 
CAL 
ADD 
SLW 
CLA 
SUB 
TNZ 
HTR 



D0NE 

Q 

SETWD ADD 

C0MPAR 

N 

X 

0NE DEC 

C0EPF BSS 



Address 

C0EFF+1 

Q 

M0D 

0NE 

M0D 

M0D 

C0MPAR 

L00P 



COEFF+l 



Modify instruction 



Back if not done 



(ADD C0EFF+l+n) 



1 
101 



(S) 



■(At 129-2) 



INFORMATION ON TAPE 

Magnetic tapes for the 7090 computer are |" in width 
and are normally 2400' long. Information is stored in 
seven channels, in the manner described in the book. 

Data are recorded on tape in one of two modes j the 
difference is usually of little concern to the programmer. 
In the binary mode , information appears as described in 
the book. In the BCD mode , some bit configurations are 
changed and the check bit is such that there are an even 
number of 1 ' s across the tape width. 

Record gaps are ^" long. The ends of files are 
indicated by special marks and/or end-of-file gaps; the 
latter are 3|" long. 



(S) (At 129.4). 



TAPE READING AND WRITING 



(The ma 
of Chapter 7 
the 7090 pro 
output codin 
described in 
to appreciat 
instructions 
versions of 
The latter I 



terial 
, altho 
gramme r 
gj rath 

Chapte 
e input 

should 
instruc 
nstruct 



in this 
ugh hypo 
He wi 
er he wi 
r 11 in 
-output 

be stud 
tions th 
ions are 



section and in the remainder 
thetical, is of interest to 
11 rarely write his own input - 
11 use a monitor system, 
the book. Therefore, in order 
operations, the DELTA 63 
ied. They are simplified 
at actually exist on the 7090. 
much more complex. ) 
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Magnetic tape may be read from or written on at the 
rates of 75" per second (709 and 7090) or 112.5" per 
second (7090). Information passes between core storage 
and magnetic tape at rates of 15,000 to 62,500 lines of 
bits per second. Each line of bits represents one 
character — such as a letter, digit, or punctuation mark — 
so that the maximum rate is 62,500 characters per second. 
Recent equipment uses rates up to 90,000 characters per 
second. 

Information is written or read in one direction only. 
A tape may be backspaced or rewound, however, and be read 
or written on again. Instructions are available to 
backspace one record, . to backspace one file, to write an 
end-of-file gap and mark, and to rewind a tape. 

Data transmitted between core storage and an input- 
output device (magnetic tape, card reader, card punch, 
printer) must pass through a data channel. The operation 
of a data channel is initiated within a program in the 
computer, but once started the channel operates independ- 
ently of the program. Data channels control the quantity 
and destination of the data transmitted through them. 

The computer and a data channel cannot both make a 
reference to core storage at the same time, so that the 
execution of a main program instruction may be delayed 
until the needs of the data channel are satisfied. The 
delays do not interfere with the main program in any 
other way. If the instruction being executed does not use 
core storage when a channel requires a reference to storage, 
normally no delay occurs. 

A maximum of 10 tapes per channel can be used. Each 
tape unit has an address, as does each channel. The 
combination of the two addresses specifies a particular 
tape unit attached to a particular channel. 

A card reader reads cards at the rate of 250 cards 
per minute. Information punched on the cards may be binary, 
decimal, alphabetic, or in another format. The reading 
format is controlled by the stored program and a control 
panel attached to the reader. Any sequence of channel 
commands calling for the uninterrupted transmission of 
24 words causes the reading of one complete card. The words 
read are stored in consecutive core storage locations, 
starting with the address specified in the channel instruc- 
tion. Word counts of other than 24 may also be given and 
cards are read as required. 

One card punch may be attached to any channel. 
Punched card output may be decimal, alphabetic, binary, 
or any other desired form. Cards are punched at the rate 



24 

of 100 per minute. The punching format is controlled by 
the stored program and a control panel on the unit. 
Starting with the location in core storage specified by 
the channel instruction, 24 words from consecutive 
locations are punched on a card. Counts other than 24 
may also be punched by a single instruction. 

One printer may be attached to any channel. Informa- 
tion may be printed in any form within the limitations of 
the set of characters available. A set of 48 different 
characters is available. Information is printed at the 
rate of 150 lines per minute. The format of the informa- 
tion is controlled by the stored program and a control 
panel on the printer. 



(R). 



■(131.7 - 132.7)' 



Example 7.5 Write a loading program to load from 
tape A. 

The READTA instruction in the program below is a 
DELTA 63 instruction.* A reading loop, using the skip 
feature of this instruction, is established. A flowchart 
is drawn in Fig. 7.6 in the book. After a record of 
24 words is read in, the reading instruction is address 
modified so that the next record is read into memory 
at a location 24 addresses later. This process repeats 
until the file is exhausted. 



Locn. Oper. 


Address 




READ IN READTA 


/0/1OOO 


Loading point 


TRA 


/0/1OO5 


Starting point 


CAL 


READIN 


Modify instruction 


ADD 


N24 




SLW 


READIN 




TRA 


READIN 





N24 



DEC 



24 



*The DELTA 63 input-output instructions in these examples 
can be simulated by macro-instructions, described in 
Section 10.2 and Chapter 17 of the book. 



(R.)' 



■(133.1 - 134.6)' 
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LOADING DATA 

STORE ADDRESS (STA Y) (+0621); 2 cycles. The 
contents of the address field of the AC, i.e., bits 21-35, 
replaces the contents of the address field of location Y. 
The C(AC) and the other bits in Y are unchanged. 

Example 7.6 Write a card-loading program that stops 
loading on encountering an end-of-program card which con- 
tains the octal number 777777777777 in the first word 
position. 

This loading program is similar to the one coded in 
the last example, which reads information from tape. The 
only change (aside from the reading instruction) is that a 
test for the end-of-program card must be made after each 
card is read. As the first word of each card is read into 
a memory location, the contents of that location must be 
checked for 777777777777; if that number is found, control 
goes to the object program for execution. If the end-of- 
program card is omitted, card reading would be attempted 
when no cards are present in the card reader, and the 
computer would stop. A flowchart appears in Pig. 7.7 in 
the book. 



Location 


Oper. 


Address 




READIN 


READC 


/0/1OOO 


Loading point 




HTR 




No 777777777777 


TEST 


CLA 


/0/1OOO 


Test first word for 7's 




SUB 


SEVENS 






TZE 


/0/1OO5 


Go to program 




CAL 


READIN 


Modify instructions 




ADD 


N24 






SLW 


READIN 






STA 


TEST 






TRA 


READIN 




N24 


DEC 


24 




SEVENS 


0CT 


777777777777 



As an example of a program that reads its data, 
consider the summation of n numbers; this problem was 
coded in Example 7.3. 

Example 7.7 Determine the sum of a given set of 
n numbers. The numbers are stored in the block beginning 
at NUMBRS; their sum is to be placed in SUM. 
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The numbers are stored on data cards. The number n* 
is in the first word position of the first data card, and 
the n numbers are stored on the following cards, punched 
in binary, 24 to a card. The last card is filled out with 
zeros. The reading loop is similar to the loop in 
Example 7.5, where an object program is read in. 



Location Oper. Address 



Read in n 

Read in 24 numbers 
Go to summation seq, 



READC N,l 

TRA ERR0R 

L00P READC NUMBRS 

TRA START 

CAL L00P 

ADD N24 

SLW L00P 

TRA L00P 

START STZ SUM 

• • • • • • 

ERR0R 
The program continues as in Example 7.3. 
( R ) (135.2 - 136.6) 

READING OUT RESULTS 

Example 7.8 A deck of data cards contains n integers, 
one to a card, in the first word position, in binary form. 
Write a program that computes the sum of each set of three 
integers in succession and writes the n/3 sums on tape. 
The number n, a multiple of 3, appears on the first data 

'(Refer to the book for an analysis and a flowchart. 
Note that ST0RAD is equivalent to STA. ) 
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Location 


Oper. 


Address 




STEP1 


READC 


N, 1 


Read n 




TRA 


ERR0R 


Tra if end of file 




CAL 


SETWD1 


Initialize first lo 




SLW 


L00P1 






ADD 


N 






SLW 


CMPAR1 




L00P1 


READC 


NMBRS , 1 


Read a number 




TRA 


ERR0R 






CAL 


L00P1 






ADD 


0NE 






SLW 


L00P1 






CLA 


L00P1 






SUB 


CMPAR1 






TNZ 


L00P1 




STEP2 


CAL 


SETWD2 


Initialize second I 




SLW 


L00P2 






ADD 


0NE 






STA 


L00P2+2 






ADD 


0NE 






STA 


L00P2+2 






ADD 


N 






STA 


CMPAR2 




L00P2 


CLA 


NMBRS 


Add 3 numbers 




ADD 


NMBRS+1 






ADD 


NMBRS +2 






ST0 


SUM 






WRITEB 


SUM,1 


Write sum on tape B 




CAL 


L00P2 


Modify instrs. 




ADD 


THREE 






SLW 


L00P2 






ADD 


0NE 






STA 


L00P2+1 






ADD 


0NE 






STA 


L00P2+2 






CLA 


L00P2+2 






SUB 


CMPAR2 


Test for last sum 




TNZ 


L00P2 






HTR 






0NE 


DEC 


1 




THREE 

N 

SUM 


DEC 


3 










SETWD1 


READC 


NMBRS , 1 




SETWD2 


CLA 


NMBRS 




CMPAR1 






(READC NMBRS+n,l) 
( NMBRS +2+n) 


CMPAR2 


ADD 


■** 


NMBRS 


BSS 


3000 




ERR0R 


• • • 


• • • 





Chapter 8 
INDEX REGISTERS 



(R). 



THE INDEX REGISTERS 



■(141.8 - 142.7)' 



The 709 and 7090 computers each have three index 
registers, designated 1, 2, and 4. (The 7094 computer 
has seven index registers.) Associated with most instruc- 
tions is a tag which specifies one of these registers. 
Bits 18-20 in the instruction word comprise the tag field , 
pictured in Fig. 8.1 below. This 3-bit field may contain, 
the integers 0, 1, 2, and 4.* A tag of indicates that 

000101000000000000011011010001110111 
S 11 18 21 35 



Operation 
Code 



Tag 



Address 



Fig. 8.1 Format of 7090 instruction. 

no index register is specified, whereas a nonzero integer 
designates a particular one. The symbol XR is used for 
"index register," and XR1, XR2, and XR4 refer to the 
specified registers. Each index register contains 15 bits, 

The seven index registers of the 7094 are designated 
1, 2, ..., 7, and the tag field is the same as the other 
computers. Integers 0, 1, ..., 7 are used as described 
above. 

A tag is indicated in FAP by placing its numerical 
designator in the variable field, after a comma following 
the address, without an intervening blank space. The 
following instructions, shown both in symbolic and assem- 
bled form, indicate the use of XR1 and XR4, respectively: 



Machine word 
+0500 00 1 04500 
+0400 00 4 04512 



Symbolic instruction 
CLA LIST,1 
ADD LIST+10, 4 



*The integers 3* 
mode. Refer to 



5, and 6 may 
the IBM 7090 

28 



be used 
Manual. 



in the multiple-tag 
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The extra blank space, just to the left of the tag, is 
Included in the assembled machine word for clarity. 

In an Instruction with no tag (zero in the tag field), 
the address of the word that is processed is simply the 
operand address. In an instruction with a tag, however, 
the address of the processed word is the operand address 
decreased by the contents of the specified index register. 
This address modification is automatic and temporary; the 
instruction does not change, but the effect is as though 
it were changed during the execution of the instruction. 
As an example, let the C(XRl) = 100; the instruction 

ADD W0RD, 1 

will cause the C(w"0RD-lOO) to be added to the accumulator. 

(r) (143.1 - 143.9) — 

INSTRUCTIONS 

LOAD INDEX FROM ADDRESS (LXA Y,T) (+0534); 2 cycles. 
The C(Y)2i-35 replaces the contents of the specified index 
register. The C(Y) is unchanged. 

ADDRESS TO INDEX TRUE (AXT Y,T) (+0774); 1 cycle.' 
Positions 21-35 (Y) of this instruction replace the con- 
tents of the specified index register. 

The following examples illustrate these instructions- 
(1) if the C (NUMBER) = 500, the instruction 

LXA NUMBER, 1 

places the number 500 in XR1; (2) the instruction 

AXT 1000, 1 

places the number 1000 in XR1. 

Several indexing instructions are similar to two- 
address instructions; they contain two operands. These 
instructions have a fourth field, the decrement field , 
which has 15 bits; it is pictured in Pig. 8.2. In these 
instructions, the operation code occupies only three bits, 

001000000000011010010000001001100111 
S3 18 21 3« 



Operation Decrement "Tag AcTdress" 

Code 

Fig. 8.2 Format of certain 
indexing instructions 
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S, 1, and 2; the decrement field occupies bits 3-17. The 
15-bit, unsigned number in the decrement field is the 
decrement . 

TRANSFER WITH INDEX INCREMENTED (TXI Y,T,D) (+1); 
2 cycles. The decrement of this instruction is added to 
the contents of the specified Index register, and the sum 
is placed in the index register. The computer takes its 
next instruction from location Y. 

This Instruction does two distinct things, independ- 
ently of each other: it modifies an index register by a 
specified amount and It transfers control unconditionally. 

The form of the instruction in FAP format is the 
following: 

TXI NEXT, 2, 26 

This Instruction increases the C(XR2) by 26 and transfers, 
control to NEXT; if the address of NEXT is 01147, then 
this instruction is pictured in Fig. 8.2. Note that the 
decrement is placed in the variable field, directly after 
the tag with an intervening comma. The three fields in 
the variable field, the address, tag, and decrement, 
appear in that order, but appear in the reverse order 
within the instruction. 

Frequently, it is necessary only to modify 
register without transfering control elsewhere; 
following form is then used: 



the 
the 



index 



TXI *+l,2,26 
The decrement may be written as a negative number: 



TXI NEXT, 1,-10 

Here, the C(XRl) Is decreased by 10. Since decrements are 
unsigned numbers, the 2's complement is placed in the 
instruction word; the 2 ? s complement of 12g (10) is 77766g, 
so that the assembled word for this last instruction is 

+1 77766 1 01147 

If the C(XR1) = 24o (20) prior to execution of this instruc- 
tion, it is 00024 Q + 777663 = 000128 ( mod IOOOOO3) after- 
ward; 12g = 10. 

TRANSFER ON INDEX LOW OR EQUAL (TXL Y,T,D) (-3); 
2 cycles. If the contents of the specified index register 
is less than or equal to the decrement of this instruction, 
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the computer takes its next instruction from location Y. 
If the contents of the index register is greater than the 
decrement, the computer takes the next instruction in 
sequence. 

TRANSFER ON INDEX HIGH (TXH Y,T,D) (+3); 2 cycles. 
If the contents of the specified index register is greater 
than the decrement of this instruction, the computer takes 
its next instruction from location Y. If the contents of 
the index register is less than or equal to the decrement, 
the computer takes the next instruction in sequence. 

These last two instructions are conditional transfer 
instructions ; a condition in an index register is tested. 
An example of the former instruction is the following: 

TXL L00P,4,3 

Control goes to L00P if the C(XR4) is less than or equal 
to 3. 

(M) .— (143.9 - 144.3) 



(The following comments apply to 143.9 - 144.3.) 
The following correspondence of instructions exists: 

DELTA 63 IBM 7090 

SETXRI AXT 

SETXR LXA 

INCRXM TXI with an address of "*+i" 

XJUMP TXL (approximately) 

(M) (144.4 - 144.10) 

(The following comments apply to 144.4 - 144.10.) 
THE VARIABLE FIELD 

The material applies equally well to FAP, except for 
the examples of instructions. Those instructions, however, 
are merely illustrative. 



(r) (145.6 - 146.3) 

Example 8.1 Compute the value of x n . This problem 
was previously coded in Example 7.2. The result is placed 
in P. 
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In this program, XR1 is used to represent the Index I 
of Example 7.2. XR1 is set to 1 initially and increased 
by 1 each loop cycle, after the multiplication occurs. 
Then a test of the C(XRl) is made by a TXL instruction; 
when the index i exceeds n, after just being increased, 
the computation must cease and control passes to D0NE 
instead of being returned to MLTPY for further multiplica- 
tion. 

A test for the case n =0 is included by a test for 0, 
Prior to this, 1 is stored in P to allow for this possi- 
bility. If n 4- 0, P is later set to x". 

Initially, it is assumed that n is a known number; it 
is coded in the decrement of the TXL instruction. 



Locn. 


Oper. 


Var. Field 




START 


AXT 


1,1 


Set i = 1 




CLA 


0NE 


Set P = 1 




ST0 


P 






CLA 


N 


Out if n = 




TZE 


D0NE 






LDQ 


0NE 




MLTPY 


MPY 


X 


p.x to p 




TXI 


*+l,l,l 


i+1 to i 




TXL 


MLTPY, l,n 


Test for i = n 




ST0 


P 




D0NE 


HTR 






N 




n 




X 








P 








0NE 


DEC 


1 





Note that in this program, n Is an integer, placed 
initially in the decrement of the TXL instruction. 
Normally, n would be supplied as data and would be stored 
in the decrement during the running of the program. 

An alternate approach is to have the XR value run 
backwards, from n down to 1, decreasing by 1 each loop 
cycle. This is more common in FAP, because of the fact 
that effective addresses are formed by subtraction of 
index register contents. The following program uses this 
approach. The index register is 
is tested for equality with 1 at 
(actually it is tested to see if 
as I exceeds 0, control 



test for zero n is done 



returns to 
with a TXL 



initially set to n; it 
the end of the loop 
it exceeds 0). As long 
MLTPY. The initial 



instruction 
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Locn. Oper. Var. Field 

START 



LXA 


N,l 


Set i = n 


CIA 


0NE 


Set P = 1 


ST0 


P 




TXL 


D0NE,1,O 


Out if n = 


LDQ 


0NE 




MPY 


X 


p«x to p 


TXI 


*+l,l,-l 


i-1 to i 


TXH 


MLTPY,1,0 


Test for i = 1 


ST0 


P 




HTR 







MLTPY 



D0NE 



N n 

X 

P 

0NE DEC 1 



(r)— —„-•—_( X 46. 4-- 146.8)—— 

Example 8.2 Determine the sum of a given set of 
n numbers. The numbers are stored in the block beginning 
at NUMBRS; their sum is to be placed in SUM. 

This problem was previously coded in Example 7.3. 

The ADD instruction must refer to all.n numbers in 
sequence, so that it is tagged; XR1 is used. The effec- 
tive address initially must be NUMBRS; it must then be 
NUMBRS+1, etc. Since index registers decrement direct 
addresses, it is most convenient to provide a direct 
address that includes the size of the block to be processed. 
If the index register is set to that size, the initial 
effective address is that of the first word in the block. 
If the final index register value is 1, the final effec- 
tive address is that of the last word in the block. This 
approach is feasible if the quantities to be processed are 
stored in ascending memory locations. 

Initially, we assume that n is known to be 100. The 
operand address of the ADD instruction is NUMBRS+100, 
while the index register is initially 100; the final value 
of the index register is 1, so that the final effective 
address is NUMBRS+99, the address of the 100th and final 
number. 
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Locn. 


Oper. 


Var. Field 




STZ 


SUM 




AXT 


100,1 




CLA 


SUM 


L00P 


ADD 


NUMBRS +100, 1 




TXI 


*+l,l,-l 




TXH 


L00P,1,O 




ST0 


SUM 


D0NE 


HTR 




SUM 






NUMBRS 


BSS 


100 



Add a number 
Test for end 



If n is a variable of the problem, as it usually is, 
it is necessary to set the address of the ADD instruction 
during the run of the program. For this purpose, the data 
instruction at XNUMBR is used, and the STA instruction 
sets the address. (Alternately, the decrement of an 
indexing instruction can be set, as in the first program 
in Example 8.1.) However, it is still necessary to know 
the upper bound on n, so that a block can be set aside. 
Assume that bound is 100; the resulting program follows. 



Locn. 


Oper. 


Var. Field 






CLA 


XNUMBR 


Set ADD in 




ADD 


N 






STA 


L00P 






STZ 


SUM 






LXA 


N,l 






CLA 


SUM 




L00P 


ADD 


**,1 


(NUMBRS+n) 




TXI 


*+l,l,-l 






TXH 


L00P,1,O 






ST0 


SUM 




D0NE 


HTR 






SUM 








N 








XNUMBR 




NUMBRS 




NUMBRS 


BSS 


100 





The "**" in the variable field of the second ADD instruc- 
tion indicates that an address is to be supplied when the 
program is run. 
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(R)- 



(147.2 - 147.8) 



Example 8.3 Write a program to evaluate a polynomial 
of order n, for n as large as 100. The number n, the 
coefficients, and the variable x are located in N, the 
block starting at C0EFF, and X, respectively. 

This program was previously coded in Example 7.4. 



Set ADD instr. 



Locn. 


Oper. 


Var. Field 




CLA 


XC0EFF 




ADD 


N 




STA 


L00P+2 




LXA 


N,l 




IDQ 


C0EFF 


L00P 


MPY 
XCA 


X 




ADD 


**,1 




XCA 






TXI 


*+l,l>-l 




TXH 


L00P,1,O 




STQ 


Q 




HTR 




Q 






N 






X 






XC0EFF 




C0EFF+1 


C0EFF 


BSS 


101 



bn to MQ 

C(AC)-x + b ± to AC 



Three more indexing instructions are described. The 
first two permit the contents of an index register to be 
saved in storage. The third combines the operations 
performed by the pair of TXI and TXH instructions in the 
last four programs into one instruction. 

STORE INDEX IN ADDRESS (SXA Y,T) (+0634); 2 cycles. 
The contents of the specified index register replaces the 
c ( Y )21-35« The c ( Y )s,l-20 ls unchanged. 

STORE INDEX IN DECREMENT (SXD Y,T) (-0634); 2 cycles, 
The contents of the specified index register replaces the 

°( Y )3-17- The C (Y)S, 1,2,18-35 is unchanged. 

TRANSFER ON INDEX (TIX Y,T,D) (+2); 2 cycles. If 
the contents of the specified index register is greater 
than the decrement of this instruction, the number in the 
index register is decreased by the decrement and the 
computer takes its next instruction from location Y. If 
the contents of the index register is less than or equal 
to the decrement, the index register is unchanged and the 
computer takes the next instruction in sequence. 
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The action of this instruction is pictured in Fig. 8.3- 
Location Y in this instruction is usually the return point 
in a loop and hence precedes the test at the TIX instruc- 
tion. 




TIX Y,j,d 



to location Y 



>-^C(3iRj) : d X Y 

X Rj 



to next instr. 



d = 



decrement 
operand addr. 
index reg. j 



Pig. 8.3 The TIX instruction. 



(R)' 



(148.4 - 152.7)' 



Example 8.4 Given a set of n numbers in LIST, count 
the number of negative numbers present; n is at most 1000. 
Place the count in C0UNT. 

This problem was analyzed in Section 2.2. A flow- 
chart appears in Pig. 8.2 in the book. Index i counts 
loop cycles and index j counts the number of negative 
integers. XR1 and XR2 are used for these, respectively. 
At the end of the program, the C(XR2), the desired count, 
is placed in C0UNT. 

The TIX instruction is used for loop control and the 
STA instruction is used to set the address of the CLA 
instruction that places a number in the AC for testing. 
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Locn. 


Oper. 


Var. Field 


I 


SET 


1 


J 


SET 


2 




CIA 


XLIST 




ADD 


N 




STA 


TEST 




LXA 


N,I 




AXT 


0,J 


TEST 


CIA 


**,I 




TZE 


TIXPT 




TPL 


TIXPT 


INCRSE 


TXI 


*+l,J,l 


TIXPT 


TIX 


TEST, 1,1 




SCA 


C0UNT,J 




HTR 




N 
C0UNT 






XLIST 




LIST 


LIST 


BSS 


1000 


Examp 


ile 8.5 


Given 80 nun 



Set Index symbols 
Set address of lnstr. 



Set Index 1 

Zero Index J 

(LIST-fn) 

No count if 

No count If + 

J+l to j (If number Is 

Store count 



-0 



tenth powers of the numbers. The numbers are stored in 
TABLEZ; the sum is to go in SUMZ. 

This problem was analyzed in Section 2,4 (page 36); 
a flowchart appears in Fig. 8.3 in the book. 

Since the flowchart shows two nested loops, two index 
registers are required for the two indices 1 and j. The 
current value of the accumulator during the multiplication 
process is called p. The inner loop of this problem, which 
computes the tenth power of a number, is similar to the 
loop in Example 8.1. The outer loop, which sums the powers, 
is similar to the loop in Example 8.2. Summation cannot 
accumulate in the AC, since that register is also used 
during multiplication. Therefore the computed partial sums 
are stored in SUMZ. Symbolic indices are not used, 
although they would serve well in this program. Because 
the number of inner and outer loop cycles are known, 
addresses can be coded into the program. 
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Locn. 


Oper. 


Var. Field 






STZ 


SUMZ 


Clear sum 




AXT 


80,1 




L00PI 


AXT 


10,2 






LDQ 


0NE 




L00PJ 


MPY 


TABLEZ+80, 1 


p- number to p(AC) 


TESTJ 


TIX 
XCA 


L00PJ,2,1 


J+l to J and test 


SUMI 


ADD 


SUMZ 


Sum+p to Sum 




ST0 


SUMZ 




TESTI 


TIX 
HTR 


L00PI,1,1 




0NE 


DEC 


1 




SUMZ 








TABLEZ 


BSS 


80 




Example 8.6 


Given a list 


of 1000 integers, so 



into negative and positive integers, and compute the sums 
of the two lists. 

The numbers ai start at location LIST. Let the 
negative integers be placed in the block starting at NEGLST 
and the positive integers be placed in the block starting 
at P0SLST. Let Nj be the Jth location in the NEGLST 
block; let Pk be the kth location in the P0SLST block. 
Place the sums in NEGSUM and P0SSUM; let S n and S p be the 
negative and positive sums. A flowchart appears in 
Pig. 8.4 in the book. 

Three index registers are to be used. XR1 is the 
loop control XR (index l); XR2 and XR4 will be used as 
pointers to designate where in NEGLST and P0SLST the 
integers are to be stored (indices J_ and k). Since index 
registers modify by decrementing rather than by incre- 
menting, the index register contents must be decreased 
each time entries are made into the tables. Thus, to 
store a positive number this sequence is used: 

Oper. Var. Field 

ST0 P0SLST+1OOO,K 
TXI M0D,K,-1 



The first instruction stores the number, and the second 
modifies XR4 (k) so that the next time a positive number 
is stored, it is placed in the next word in the list. The 
TXI instruction transfers control to M0D, where the TIX 
instruction controls the outer loop. In this manner, XR4 
indicates at any time the next available location for 
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storage of an integer. The same is true for XR2. These 
index registers point to the locations in memory; hence 
they are called pointers when so used. 



Locn. 


Oper. 


Var. Field 


I 


SET 


1 


J 


SET 


2 


K 


SET 


4 




STZ 


NEGSUM 




STZ 


P0SSUM 




AXT 


1000,1 




AXT 


1000, J 




AXT 


1000, K 


FETCH 


CLA 


LIST+1000,1 




TPL 


PLUS 


MINUS 


ST0 


NEGLST+1000,J 




ADD 


NEGSUM 




ST0 


NEGSUM 




TXI 


M0D,J,-1 


PLUS 


ST0 


P0SLST+1OOO,K 




ADD 


P0SSUM 




ST0 


P0SSUM 




TXI 


*+l,K,-l 


M0D 


TIX 
HTR 


FETCH, 1,1 


NEGSUM 






P0SSUM 






LIST 


BSS 


1000 


NEGLST 


BSS 


1000 


P0SLST 


BSS 


1000 



Set index symbols 



Set main counter 
Set j,k counters 

Fetch a number 
Test sign 
Store in list 
S n + no. to S n 

Modify j 
Store in list 
Sp + no. to Sp 



The number of entries in NEGLST and P0SLST are avail- 
able in the index registers after the program is finished 
in complemented form. For example, XR2 contains the ' 
difference between 1000 and the number of negative numbers. 

Two methods of loop control have been used several 
places in the examples in this chapter. One method uses 
the TXI-TXH pair of instructions; the other uses the 
TIX instruction. In the examples here, both approaches 
accomplish the same functions: (l) index modification by 
constant amounts and (2) testing for the end of the looping 
process. In both cases, also, the index runs from an 
initial value, n, down to a final value, usually 1, in 
steps of 1: n, n - 1, n - 2, ..,, 3, 2, 1. If, however, 
it is desired that the index run from one limit down to 
another, where the lower limit is not equal to or less than 
the decrementing amount (the step), the TIX instruction 
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cannot be used; the TXI-TXH pair is required, 
example, that the index is required to run as 
100, 98, 96, .... 44, 42, 40. These 
used : 

AXT 100,1 



Assume, for 
follows : 
instructions can be 



TXI *+l,l,-2 
TXH L00P,1,39 

As soon as the index decreases to 38, the loop will stop. 
The TIX instruction cannot provide this flexibility. 



(R). 



(153.1 - 153.3)' 



THE TIME-SPACE BALANCE 

This material is discussed in the book. The coding 
example for the 7090 is the following. 

Locn. 



L00P 



Oper. 


Var. Field 


CLA 


ZER0 


AXT 


60,1 


ADD 


NUMBRS+60,1 


ADD 


NUMBRS+6l,l 


ADD 


NUMBRS+62, 1 


TXI 


*+l,l,-3 


TXH 


L00P,1,O 


ST0 


SUM 



Add 3 numbers 



Modify index by 3 



(S) (At 154.7) 

N0NL00P INDEX REGISTER USAGE 

When index registers are used as counters, their 
contents generally start at or 1 and are increased 
regularly, usually by steps of 1. When used as pointers, 
however, their contents usually decrease so that they point 
to successive memory words at increasing memory addresses; 
this is due to the decrementing nature of these registers. 



(R) (155.0 - 156.3)' 



TABLE -LOOK- AT 

PLACE ADDRESS IN INDEX (PAX 0,T) (+0734); 1 cycle. 
The C(AC)21-35 replaces the contents of the specified index 
register. The C(AC) is unchanged. 
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No address is involved, although a tag is necessary. 
To indicate that the integer in the variable field is a 
tag rather than an address, a comma must precede the tap; 
This is- required by the convention in Section 8.1 in the 
book. An example of one instruction is the following: 

PAX 0, 2 

Another useful instruction is the following 
PLACE INDEX IN ADDRESS (PXA 0,T) (+0754). 1 cycle 
The contents of the specified index register replaces the 
C(AC) 21 _o 5 and the remainder of the AC is cleared. (if 
the tag Is 0, the AC is cleared completely.) 
™ v Thls instructl ° n is approximately the opposite of 
PAX, except that the rest of the AC (bits S,Q,P, 1-20) is 
cleared. Thus the instruction ; 

PXA 0,0 

may be used to clear the AC. 

Example 8.7 Given 2000 positive integers, all less 
than 100 in value, determine a histogram as follows- 
compute the distribution of integers in ten equal intervals- 

? " f^ 1 ? ~ 19 ' "" and 90 - 99- The integers are 
located in the block starting at LIST. 

The interval to which each integer belongs can most 
readily be found by dividing it by 10, discarding the 

^T^t e ?\ If ^ he ^ uotlent ^ q, the integer lies in the 
(q+l)th interval. 

The value q is then used to set an index register and 
thereby to select one of 10 counters, which is then incre- 
mented by 1. These counters count the number of integers 
in the 10 intervals. A flowchart is drawn in Fig. 8 5 in 
the book. The 10 counts are n, , n , . . . , n 

1' 2' " ' 10* 

Locn. Oper. Var. Field 

A *T 10,2 Clear block 

STZ CTABLE+10,2 

TIX *-l,2,l 

AXT 2000, 1 

NEW0NE LDQ LIST+2000, 1 Fetch an integer 

PXA 0,0 Clear AC 

DVP TEN 



XCA 



Int./lO to AC 



PAX 0,2 to XR2 

?™ CTABLE+9,2 Fetch* proper counter 

ADD 0NE nq + 1 to n q 

ST0 CTABLE+9,2 q 

TIX NEW0NE,1,1 

HTR 

(Cont'd. ) 
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Locn. 


Oper. 


Var. Field 


0NE 
TEN 
CTABLE 
LIST 


DEC 
DEC 
BSS 
BSS 


1 

10 
10 
2000 



The 10 counters 



(R) (156.7 - 157.8) 

PUSH -DOWN LISTS 

Example 8.8 The block of 1000 words at PDLIST 
contains a set of k items (numbers), the first of which is 
located in PDLIST, the head of the list. The items are 
stored in successive memory words; the number (1000-k) is 
stored in XR4. 

The following actions occur: 

(1) An item is added to the bottom of the list, and 
the C(XR4) is decreased by 1 to reflect the 
addition. 

(2) An item is removed from the top of the list, the 
list is moved up in its entirety one position, 
and the C(XR4) is increased by 1 to reflect the 
removal. 

The sequence of these actions is unknown- they may Occur 
in any sequence, e.g., (l), (2), (2), (2), (l), ... . 
This situation may be likened to a purchase order proces- 
sing scheme, where orders are handled in the order 
received; new orders go at the bottom while the top order 
is processed first. This approach is sometimes called 
"first-in-first-out" sequencing. 

The number k may be zero, but we assume it is never 
negative; that is, no more items are removed than are added, 
if we start with an empty list. 

Two subprograms (or routines ) are required; one to add 
an item and one to remove an item. These must be coded 
independently, since that is how they are used. Let the 
item to be removed be stored in 0LD. 

The add-item routine (ADDITM) consists of these steps: 

1. The C(NEW) must be placed at the bottom of the 
list; the address of the first free location is 
given as PDLIST+1000,4 since the C(XR4) is -k, 
the number of items in the list. 

2. The C(XR4) must be decreased by 1. 

The flowchart in Fig. 8.6a in the book shows the ADDITM 
routine. The i fch word in PDLIST is Lj_. 
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The 
steps : 
1. 



remove-item routine (REMITM) consists of these 

the first item, must be stored in 
must be moved up one 



The C(PDLIST), 
0LD. 

2. The k-1 remaining items 
word each. 

3. The C(XR4) must be increased by 1. 

To accomplish the movement of k-1 items, a loop is 
established. The TXI-TXH pair of instructions is used 
because the index runs from 1000 down to 1002 - k; to 
effect this, the decrement in the TXH instruction must be 
1 less, 1001 - k. After XR4 is increased by 1 so that it 
contains this number, its contents are placed in the TXH 
decrement by the SXD instruction. 



(M) 



Locn. 


Oper. 
CIA 


Var. Field 
NEW 




ADDITM 


Put item at bottom 




ST0 


PDLIST+1000,4 


of list 




TXI 


*+l,4,-l 




REMITM 


CLA 


PDLIST 


Put first item in 0LD 




ST0 


0ID 






TXI 


*+l,4,l 


XR4: 1001 - k 




SXD 


TEST, 4 






AXT 


1000,1 


Move k-1 items 


M0VE 


CLA 


PDLIST+1001,1 


up 1 position 




ST0 


PDLIST+1000, 1 






TXI 


*+l,l,-l 




TEST 


TXH 


M0VE,1,** 


(1001 - k) 

1 CO _ 



(The following comment applies to 159.4 - 161.5.) 
This correspondence exists: 



IBM 7090 DELTA 63 
CLA L0AD 
( R ) i (162.4 ~ 164.6) 

USING INDIRECT ADDRESSING 

The following pseudo-operation is also used to set 
aside blocks of storage in memory. Under certain condi- 
tions, it is more useful than BSS. 
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BES (Block ending with symbol). A "block of words of 
the size indicated in the variable field of this pseudo- 
operation is set aside for later use at the point in the 
program at which this card occurs. The location associated 
with the symbol appearing in the location field is the 
first address after the block . Thus, in the following 

LIST BES 200 



if the last location used before the block was 00300, then 
00301 through 00610, 3108 (200) locations long, are set 
aside for the block, and location 006ll is associated 
with LIST. 

Example 8.9 Given five blocks of numbers and a 
sorted list of the starting addresses of the blocks, write 
a program to process the blocks in the indicated sequence. 
The program is to be written so that each number to be 
processed is loaded into the accumulator and processed in 
some manner. (This processing is not of interest here 
and is therefore not coded. ) 

Much detail and analysis of this problem is given in 



the book, 
block are 



Note, however, that the addresses in the S0RTED 
the BES type. The coding in FAP follows. 



Locn. Oper. 



Var. Field 



AXT 5 2 
START LXA BLSIZE, 1 

CLA* S0RTED+5,2 



Set i index 
Set j index 



(Processing routine here) 



TIX 
CAL 
ADD 
SLW 
TIX 
HTR 



START+1,1,1 

START 

0NE 

START 

START, 2,1 



Chapter 9 
SEQUENCING IN MEMORY 



(M) 



■(168.2 - 168.6). 



(The following comment applies to 168.2 - 168.6.) 
The 7090 compare Instruction is abbreviated as CAS, 
and bits S and 1-35 of the accumulator are involved. 



(R) (168.7 - 169.8)' 



Example 9.1 Given a set of n numbers (ai,a2, . . . ).> 
determine the largest number. The numbers, of which there 
are no more than 1000, are stored in the block starting at 
SET; thelargest number is to be stored In BIG. 

A flowchart appears in Fig. 9.1 in the book. Ini- 
tially, the first number is placed In the AC. Then, the 
C(AC) is successively compared with a2, a3, ..., until a 
larger number is found. When a larger number is found, It 
is placed in the AC and the process repeats, the C(AC) 
being compared to all numbers next in sequence. After all 
numbers are tested, the AC contains the largest number in 
SET; it is stored in BIG. The flowchart indicates that 
the index is Initially set to 1, which causes ai to be 
compared to itself. Although unnecessary, this Is done 
for uniformity with loops in other programs. 



Locn. 


Oper. 


Var. Field 






CLA 


XSET 




Set instructs 




ADD 


N 








STA 


FETCH 








STA 


FETCH+3 








CLA 


SET 




a, to AC 




LXA 


N,l 




FETCH 


CAS 


**,1 




( SET+n ) 




TRA 


NEXT 




C(AC} greater 




TRA 


NEXT 




C(AC) equal 




CLA 


**,1 




C(AC) less; a. 


NEXT 


TIX 
ST0 
HTR 


FETCH, 1 j 
BIG 


,1 








(Cont'd. 


•) 
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to AC 
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Locn. Oper. Var. Field 

BIG 

N 

XSET SET 

SET BSS 1000 

( S ) (At 170.1) — 

The 7090 computer has a number of test instructions 
that are of the skip variety; each tests a condition within 
the computer and causes the computer to continue in 
sequence or skip one instruction, depending on the outcome 
of the test. Two such instructions are the following. 

STORAGE ZERO TEST (ZET Y) (+0520); 2 cycles. If the 
C(Y)i_35 is zero, the computer skips the next instruction 
and proceeds from there. If it is not zero, the computer 
takes the next instruction in sequence. The C(Y) is 
unchanged. 

STORE NOT ZERO TEST (NZT Y) (-0520); 2 cycles. If the 
C(Y)i_35 is not zero, the computer skips the next instruc- 
tion and proceeds from there. If it is zero, the computer 
takes the next instruction in sequence. The C(Y) is 
unchanged. 

(R) (170.5 - 171.7) .--— 



FIXED BRANCHING 

CLEAR AND SUBTRACT (CLS Y) (+0502); 2 cycles. The 
negative of the C(Y) replaces the C(AC)s 1-35. Positions P 
and Q of the AC are set to zero. The C(Y) is unchanged. 

Example 9.2 Code a branch point that sends control 
alternately to operations P and Q. 

There are a number of ways to code an alternating 
branch point. Using instructions already studied, we shall 
base the decision on the sign of a number in memory. The 
sign is reversed every time control Is sent to the branch 
point, after which the sign is tested with a TPL instruc- 
tion. Since the sign is alternately plus and minus, the 
branching occurs. A flowchart appears in Fig. 9-2 in the 
book. 

Locn. Oper. Var. Field 

CLS SIGNWD Change sign of SIGNWD 

ST0 SIGNWD 

TPL 0PERP Tra to oper. P 

TRA 0PERQ, Tra to oper. Q 



SIGNWD DEC 1 

If the Initial sign of SIGNWD is plus (as here), control 
will first go to Q, since the sign is changed before the 
test. The C (SIGNWD) will be alternately +1 and -1. 
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Example 9.3 Code a branch point that sends control 
to one of four operations in cyclic sequence: P, Q, R, S, 

P, Q, . . . . 

A tagged TRA instruction is used to produce a cycling 
transfer of control (with XRl). The effective address of 
this instruction is BRANCH, BRANCH+1, . .. , BRANCH+3, in 
sequence/ sending control, respectively, to 0PERP, 0PERQ, 
. .., 0PERS. Control then goes to operations P, Q, R, 
and S. To produce these effective addresses, XRl is set 
to 3, 2, 1, 4, 3, 2, 1, ... . Decreasing the C(XRl) by 1 
is no problem, but following 1 with 4 requires special 
treatment. Initially, early in the program, the C(XRl) 
is set to 4 and is then decreased by 1 just prior to each 
transfer at the branch point. A TXH 
for the case when the (XRl) falls to 
is reset to 4 before the transfer. 

A flowchart appears in Fig. 9.3 in the book. 



instruction 
0, at which 



tests 
time it 



Locn. Oper. 



Var. Field 



AXT 


4,1 


• • • 

TXI 


*+i,i,-i 


TXH 


JUMPS, 1,0 


AXT 


4,1 


JUMPS TRA 


BRANCH+4, 1 


BRANCH TRA 


0PERP 


TRA 


0PERQ 


TRA 


0PERR 


TRA 


0PERS 



(Set early in program) 



Test index; tra if 1 
or greater; reset if 



C(XR1) = 



4 

3 
2 
1 



The program can be made slightly simpler with the use 
of indirect addressing, flagging the first TRA instruction 
(at JUMPS) and removing the operations from the next four 
instructions. The extension of this technique to any 
number of paths is straightforward. 



(R). 



■(172.7 - 174. SO- 



VARIABLE BRANCHING 

Example 9.4 Code a 
one of five locations 



to 



sends control 
if the 



branch point that 

(XI, X2, ..., X5 

C( DIGIT) =1, 2, ..., 5, respectively. 

This problem is similar to the four-way branching 
problem of Example 9.3, except that the branching depends 
on the data. (Presumably, the C (DIGIT) is determined 
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rhi-Mnc the urogram execution and thus depends on data.) 
Alf Sat is P ne?essary is that the C (DIGIT) be loaded into 
an index register and that a jump he effected with a 
tagged TRA instruction. 



Locn. Oper. 



LXA 
TRA* 



JTABLE 



Var. Field 

DIGIT, 1 
JTABLE +5,1 

X5 
X4 

X3 
X2 
XI 

If the C (DIGIT) = j, then j is placed in XR1 nd the 
effective address of the TRA instruction is JTAB1E+5-J, 
so that a transfer to Xj occurs, as required. A check 
on the C (DIGIT) might be necessary to avoid an erroneous 

tranS Examole 9.5 Code a branch point that sends control 
to on e yetgnV locations (LO, LI, ..., L7), depending 
upon the signs of three variables, a, b, and c, in the 
following manner: 




+ 



— 


+ 


LO 


L2 


LI 


L3 



a 



Pos 


itive c 




b 




- 




+ 


L4 




L6 


L5 




L7 



Two distinct approaches are possible here. In one, 
the signs of the three variables are tested in sequence; 
an eight-way branch results. A flowchart is given in 
FiK 9.4a in the book. In the other, a digit J is built 
up for an eventual jump to location L j . Weights can be 
assigned to the algebraic signs of the variables: 



a : 


"-": 0; 


"+": 1 


b: 


"-": 0; 


"+": 2 


c : 


"-": 0; 


"+": 4 
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As the signs are checked, the appropriate weights are 
summed to form the proper value of j. Finally, j is used 
to modify a transfer address as in the last example. 



Locn. Oper, 



Var. Field 



BRANCH 



AXT 0,1 to J 

CLA A Test a 

TMI *+2 

TXI *+l,l,+l J+l to j 

CLA B Test b 

TMI *+2 

TXI *+l,l,+2 j+2 to j 

CLA C Test c 

TMI *+2 

TXI *+l,l,+4 j+4 to J 

TRA* BRANCH+7,1 

L7 

L6 

L5 
L4 

L3 
L2 
LI 
LO 



(R). 



(176.4 - 178.7)' 



Example 9.6 Five coding sequences are available for 
use in a computer problem: A, B, C, D, and E. They are 
to be used in sequence three ways, depending upon which of 
three conditions is met by data being processed: 

Case 1: use A, B, and D. 

Case 2: use A, C, D, and E. 

Case 3: use B, C, and D. 
Two approaches are analyzed and flowcharted in the 
book. The first method uses a pair of instructions to 
effect the switching as follows: 



Oper. 

CLA 
TZE 



Var. Field 

INDA 
SKI PA 



Skip A if zero 



50 

The second method uses the following types of instruc- 
tions before each box: 

Here if C(XRl) = 2 
Here if C(XRl) = 1 



TRA 


*+3,l 


TRA 


*+2 


TRA 


SKIPA 



Chapter 10 
SUBROUTINES 



(r) (182.10 - 183.4) __. 

Example 10.1 Write a program to evaluate e: 

e = a 2 + b 2 + c 2 + d 2 

The squares, as they are computed, must be- stored 
temporarily. A three-word block (TEMP) is set aside for 
this purpose. As in earlier programs, it is assumed all 
products are small enough to remain in the MQ with fixed- 
point multiplication. 



Locn. Oper. Var. Field 



SUMSQ 



TEMP 



LDQ 

MPY 

STQ 

LDQ 

MPY 

STQ 

LDQ 

MPY 

STQ 

LDQ 

MPY 

XCA 

ADD 

ADD 

ADD 

ST0 

• • • 

BSS 



A 

A 

TEMP 

B 

B 

TEMP+1 

C 

C 

TEMP+2 

D 

D 

TEMP 
TEMP+1 
TEMP+2 
E 



Square a 
Square b 
Square c 
Square d 
Sum the squares 



(R). 



(185.4 - 185.9) 



Example 10.2 Write three open subroutines, each of 
which computes the sum of a set of numbers; the sets are 
50, 100, and 250 in size. 

The sets begin at locations LIST1, LIST2, and LIST3 • 
place their sums at SUM1, SUM2, and SUM3, respectively. ' 
Assume that the latter three locations are cleared. 

51 
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Var. Field 



AXT 


50,1 


PXA 


0,0 


ADD 


LIST 1+50,1 


TIX 


*-l,l,l 


ST0 


SUM1 


AXT 


100,1 


PXA 


0,0 


ADD 


LIST2+100,1 


TIX 


*-l,l,l 


ST0 


SUM2 


AXT 


250,1 


PXA 


0,0 


ADD 


LIST3+250,1 


TIX 


*-l,l,l 


ST0 


SUM3 







(s)- 

MACRO-INSTRUCTIONS 

In BE-FAP, the coding sequence defining the basic 
structure of an open subroutine is delimited by the pseudo- 
operations MACR0 and END.* There is no ambiguity between 
this END and the last card of a PAP program because each 
MACR0 pseudo-operation is matched by the assembler to an 
END pseudo-operation. 

( R ) (186.5 - 186.7) 

The routine of Example 10.2 would be written as 
follows as a macro-definition: 



Locn. Oper. 


Var. Field 




SUMBLK MACR0 


A,B,C 




AXT 


B,l 




PXA 


0,0 


Clear AC 


ADD 


A+B,l 




TIX 


*-l,l,l 




ST0 


C 




END 







*BE-FAP is the assembler at Bell Telephone Laboratories 
for use with the 7090 and 709+ computers; it is widely 
used, with variations, at other installations of that 
computer. 
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■(188.1 - 188.5)' 



(r) 

TRANSFER OP CONTROL 

A special instruction is available for the purpose of 
transfering control to a closed subroutine -P^V^e oi 

TRANSFER AND SET INDEX (TSX Y) (+0074); 2 cycles The 
2's complement of the computer's instruction counter ' 
contents is placed in the specified index register. The 
computer takes its next instruction from location Y 

By storing in an index register the location of the 
transfer instruction, i.e., the location from where control 
came, a means is provided to return control to the main 
program For example, assume control is to return to the 
instruction following the TSX instruction, i.e., to READY+1 



Locn. Oper. 
READY TSX 



Var. Field 
SUBRTE,4 



The following instruction, located within the subroutine, 
effects the return: ' 



TRA 



1,4 



Let L be the location of the TSX instruction, i e the 
address READY. Since the C(XR4) = -L, the effective address 
of the transfer instruction is l-(-L), 
The use of the TSX instruction or 

a means for the return of 

convention, XR4 is almost 

example of a linkage that 

the following. In the main program" 

are used: 



to establish 
linkage . By 
purpose. An 
registers is 
instructions 



or L+l, as required, 
other instructions 
control is termed a 
always used for this 
does not use index 
these 



Locn. Oper. Var. Field 



CLA 
TRA 



RETURN 



* 



SUBRTE 



Place address of this 

instr. in AC 
Return here 
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The subroutine coding is started and terminated "by these 

instructions : 

SUBRTE ADD TW0 Add 2 to AC to produce 

STA G0BACK return location 



G0BACK TRA ** 

The location address in the accumulator must be increased 
by two to effect a return to RETURN. 



( R ) (189.7 - 190.2) 

TRANSFER OF INFORMATION 

As an example, If a closed subroutine SUMBIK is 
written to sum a set of numbers, as coded in Example 10.2, 
one calling sequence might be: 

Locn. Oper. Var. Field 

M0VE TSX SUMBLK,4 

LIST1 
50 
SUM1 

As seen here, the information stored in the calling 
sequence may be of several types: (a) the address for a 
result or the address of one data word may be given 
(e.g., SUM1); (b) the starting address of a block of words 
may be given (e.g., LISTl); (c) the size of a block of 
words may be given (e.g., 50). 

The subroutine has the job of obtaining the informa- 
tion for its use from the calling sequence. The effective 
address of the first word following the TSX instruction is 
given by "1,4," so that the following instructions are 
equivalent : 

CLA 1,4 
CIA M0VE+1 

These instructions load the address LISTl into the accumu- 
lator. Similarly, the other arguments in the calling 
sequence can be addressed with "2,4" and "3.4 . 

The alternate linkage described, which uses no index 
registers, can also be used with parameters placed in the 
words immediately following the transfer to the subroutine 
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Within the subroutine, the addition of 2, 3, or 4 to the 
address in the accumulator at the start provides the 
addresses of the parameters in the main program. Addition 
of 5 provides the return address. 



(R)' 



(190.7 - 191.6)- 



Example 10.3 Write the SUMBLK macro-instruction of 
Section 10.2 as a closed subroutine. 

^ Sln je all parameters are given in the calling sequence 
they must be moved to the body of the subroutine. Three 
instructions of the form 



CLA 



M,4 



where M i 
fields of 
tions sto 
routine, 
sum of th 
the macro 
routine , 
address a 
calling s 



s 1, 2, and 3, load the contents of the address 

the calling sequence into the AC. STA instruc- 
re these addresses in the proper places in the 

The heart of the subroutine, which computes the 
e numbers in the block, is the same in form as 
-instruction. Because XR1 is used by the sub- 
its contents must be saved. Note that the 
t STJB1 is set by adding two parameters from the 
equence . 



Locn. Oper. Var. Field 

SIMBLK SXA SAVEX1,1 

CLA 1,4 

ADD 2,4 

STA SUB1 

CLA 2,4 

STA SUB2 

CLA 3,4 

STA SUB3 

SUB2 AXT *# i 

PXA 0,0 

SUB1 ADD **,i 

TIX *-l,l,l 

SUB3 ST0 ** 

LXA SAVEX1,1 

TRA 4,4 



Save XR1 

Fetch list address 

Add list size 

Fetch list size 

Fetch sum address 

(size ) 

Clear AC 

(list addr + size) 

(sum address) 
Restore XR1 



SAVEX1 
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subroutine is generalized so that any calling 

form can call upon it. The following 



This 

sequence in the proper -. _ 

calling sequence will result in the summation of the 100 
words at LIST2: 



TSX SUMBLK, 4 
LIST 2 
100 
SUM2 



(191.7 - 192.4)- 



(R) 

Example 10.4 Write SUMBLK as a closed subroutine. 
Since the size of the block, rather than the address of a 
location containing the size, is given in the calling 
sequence, indirect addressing is not used to obtain that 
parameter. The tag on the ADD instruction (see 
Example 10.3) must be placed in the calling sequence. 
-The calling sequence: 

Locn. Qper. Var. Field 

TSX SUMBLK, 4 

LIST2+100,1 

100 

SUM2 



XR1): 



The subroutine (note the alternate method of restoring 



SUMBLK SXA 
CLA 
STA 

SUB2 AXT 

PXA 
ADD* 
TIX 
ST0* 

SAVEX1 AXT 
TRA 



SAVEX1,1 

2,4 

SUB2 

**,1 

0,0 

1,4 

*-l,l,l 

3,4 
** ]_ 

4,4 



Fetch list size 
(size) 



Restore XR1 



The flexibility offered by the combined use of indirect 
addressing and tags on both the direct and indirect 
addresses is illustrated. 
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(R) (192.6 - 192.8) 

Lo.cn. Qper. Var. Field 



SUMBLK MACR0 
TSX 



A,B,C 

SUMBLK, 4 

A 

B 

C 



END 
The macro-call: 

SUMBLK LIST1,50,SUM1 
( R ) (193.0 - 195.3)' 



Example 10.5 Write a closed subroutine for the 
evaluation of e : 

e = a 2 + b 2 + c 2 + d 2 

The calling sequence: 

Locn. Qper. Var. Field 



SUMSQ 



TSX 


SUMSQ,4 




A 




B 




C 




D 




E 


/ine ; 
LDQ* 


1,4 


MPY* 


1,4 


STQ 


TEMP 


LDQ* 


2,4 


MPY* 


2,4 


STQ 


TEMP+1 


LDQ* 


3,4 


MPY* 


3,4 


STQ 


TEMP+2 


IDQ* 


4,4 


MPY* 


4,4 


XCA 





(Cont'd. ) 



Locn. 


Oper. 


Var. Field 




ADD 


TEMP 




ADD 


TEMP+1 




ADD 


TEMP+2 




ST0* 


5,4 




TRA 


6,4 



TEMP BSS 3 

In this example, the use of indirect addressing does 
not slow down the subroutine. In Example 10.4 flagging is 
effective within a loop that cycled n times. In this sub- 
routine no loop is present. 

Example 10.6 Write a program to evaluate 



F 



= V^ + y x 2 - y 2 + (x 2 + y 2 + z 2 + u 2 ) 



Two subroutines are assumed available for this purpose: 
SQJ$0T, which computes the square root of the C(AC) and 
leaves the result in the AC, and SUMSQ, as in Example 10.5. 



Locn. Oper. 


Var. Field 




CLA 


X 


x to AC 


TSX 


SQR00T,4 




ST0 


TEMP 


Store sq. root of x 


LDQ 


Y 




MPY 


Y 


2 
Store y 


STQ 


TEMP+1 


LDQ 


X 




MPY 


X 




SCA 




2 2 


SUB 


TEMP+1 


Form x - y 


TSX 


SQR00T,4 




ST0 


TEMP+1 




TSX 


SUMSQ, 4 

X 

Y 

Z 

U 






TEMP+2 


(For result) 



(Cont'd. ) 
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Locn. 


Oper. 


Var. Field 




CLA 


TEMP 




ADD 


TEMP+1 




ADD 


TEMP+2 




ST0 


F 




HTR 




TEMP 


BSS 


3 


X 






Y 






Z 






U 







The symbols SQR00T and SUMSQ must be defined. 

In Section 8.4, it was pointed out that indirect 
addressing may be used with tags on both the direct and 
indirect addresses. This technique is illustrated by an 
example. 

Example 10.7 The block at LISTA contains 100 numbers 
whose cube roots are to be computed; the results are to 
be placed in the block at LISTB. Write a routine to per- 
form the operations, marking use of a CBR00T subroutine. 

It is assumed that CBR00T has two addresses in its 
calling sequence, the address of the argument (to be cubed) 
and the address for the result. A loop is established 
containing the calling sequence. The addresses In the 
calling sequence are tagged. Within the subroutine, a 
flagged reference places one of the arguments in LISTA in 
the AC; because of the tag, all arguments are fetched in 
sequence. 



Locn. 


Oper. 


Var. Field 




AXT 


100,1 


BEGIN 


TSX 


CBR00T/4 
LISTA+100,1 
LISTB+100, 1 




TIX 


BEGIN, 1,1 




HTR 




LISTA 


BSS 


100 


LISTB 


BSS 


100 



60 

Within the subroutine , the argument is placed in the AC 
and the result is subsequently stored in LISTB by the 
instructions 

CIA* 1,4 

m * • 

ST0 2,4 
(R) (196.4 - 196.5) --• 

Oper. Var. Field 

TZE 5,4 Zero return 

TPL 6,4 Positive return 

TMI 7,4 Negative return 



Chapter 11 
INPUT-OUTPUT OPERATIONS 



(S)~ — ■ (At 206.8)' 



Following are some examples of corrections cards used 
with 7090 monitors: 

Locn. Oper. Var. Field 

octal correction card: 237 0CT 050000211145 
decimal correction card: 4420 DEC 22,33,88 

As the result of the first card, the octal word 
050000211145, which corresponds to the instruction 

CLA /0/lll45,2 

is placed at location 00237, overwriting whatever was 
there previously. 

As the result of the second card, the integers 22, 
33 j and 88 would be placed at locations 04420, 04421, and 
04422, respectively. The convention on the use of several 
fields of a FA P DEC card applies to these correction cards. 

(r) (208.8 - 209.10) 



ALPHANUMERIC INFORMATION 

The 7090 BCD character codes are given in the accom- 
panying table. Six bits are used for each character. The 
coding is done by the card reader to put information from 
cards on tape or in memory. The codes listed apply to 
characters in memory; in some cases, the codes on magnetic 
tape differ. The code is generally termed binary-coded- 
decimal or BCD. For compactness, the codes are generally 
expressed as 2-digit octal numbers, as in the table. The 
term Hollerith is used synonomously with BCD. 
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BCD CHARACTER CODES 



Character 


BCD code 


Character 


BCD code 


Character 


BCD code 





00 


D 


24 


Q 


50 


1 


01 


E 


25 


R 


51 


2 


02 


F 


26 


$ 


53 


3 


03 


G 


27 


* 


54 


4 


04 


H 


30 


(blank) 


60 


5 


05 


I 


31 


/ 


61 


6 


06 


■ 


33 


S 


62 


7 


07 


) 


34 


T 


63 


8 


10 




40 


U 


64 


9 


11 


J 


41 


V 


65 




13 


K 


42 


W 


66 


ii 


14 


L 


43 


X 


61 


+ 


20 


M 


44 


Y 


70 


A 


21 


N 


45 


Z 


71 


B 


22 





46 


» 


73 


C 


23 


P 
(01C\ 7 - 


47 


( 
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PSEUDO-OPERATIONS 

The PAP assembler has two pseudo-operations for the 
generation of alphanumeric information within a symbolic 
program. 

(l) BCI (binary-coded information). The first 
character in the variable field of this pseudo-operation 
is a decimal digit n, from 1 to 9« The second character 
is a comma. The following string of 6n characters, if n 
is in the range from 1 to 9, is stored by the assembler in 
the n successive computer words at the point in the program 
at which this card occurs. If n = 10, the comma must 
appear in column 12, thus providing 60 columns (columns 13 
through 72) for characters; "10 BCD words are then generated. 
Thus, to store 6 words of BCD information, one writes 

Locn. Oper. Var. Field 

STRING BCI 6,T0DAY THE DATE IS 0CT0BER 24, 1961. 

The symbol STRING is assigned to the first word containing 
this information, which is stored in STRING through 
STRING+5. If the count n is insufficient to account for 
the entire string, only the first 6n characters are stored 
in n words. If the count is too large, blanks fill up 
remaining space to a total of n words. 
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(2) BCD. This pseudo-operation is used in the same 
manner as BCI, except that the comma is omitted. If 
10 BCD words are to be generated, the character must 
appear in column 12, followed in column 13 by the start of 
the string. 

(M) —(211.2 - 213.2) 



(The material in 211.2 - 213.2 consists of a typical 
approach to monitor input-output subroutine usage. Actual 
usage varies a great deal among 7090 computers. ) 



Chapter 12 
PROGRAM PLANNING 



(R) (235.1 - 235.4) 

MINIMIZING RUNNING TIME 

The time for each instruction to be executed, in 
number of cycles, is indicated in the individual instruc- 
tion descriptions. The 709 cycle time is 12 microseconds, 
the 7090 cycle time is 2.18 microseconds, and the 7094 
cycle time is 2 microseconds. 

There are a few general rules that indicate the cycle 
times of 7090 instructions. (l) Instructions involving 
only the arithmetic unit registers (AC, MQ, XRs ) require 
1 cycle; examples are XCA, PAX, and PXA. In addition, 
TRA, TMI, TPL, and AXT require 1 cycle. (2) Most instruc- 
tions require 2 cycles. (2) The CAS instruction and some 
instructions requiring testing of each bit in the AC and/ 
or memory word require 3 to 4 cycles. (4) All floating- 
point instructions and fixed-point multiplication and 
division require approximately 2 to 15 cycles, depending 
on several factors.* 



( R ) _ (235.8 - 236.3)' 



MINIMIZING MEMORY SPACE 

Example 12.2 Assume that, at location PUT in a 
routine, the contents of the accumulator is to be stored 
in BL0CK if the sequence is being used for processing a 
list of 1000 numbers or more, and is to be stored in LIST 
otherwise. 

The decision on which version to use is made just 
before its use. If the C (NUMBER) is nonzero, the version 
containing the following instruction is used: 

Locn. Oper. Var. Field 

ST0 LIST 



*There are some reductions in these figures for the 
7094 instructions. 
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ing: 
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The sequence to set the ST0 instruction is the follow- 





CLA 


NUMBER 




TZE 


ZER0 




CLA 


W0RD1 




STA 


PUT 




TRA 


PAST 


ZER0 


CLA 


W0RD2 




STA 


PUT 


PAST 


• « • 


• • • 


PUT 


ST0 


• • • 

** 


W0RD1 


• • • 


LIST 


W0RD2 




BL0CK 


(v>) 




__ „(ol±< 








DYNAMIC ALLOCATION 





Test NUMBER. . . 
transfer if zero 



The routine 



(240.3 - 241.6) 



Example 12.3 Assume that the quantities p, q, and r 
are read initially into memory from data cards, into loca- 
tions P, Q, and R. Write a program that assigns blocks of 
words to blocks A, B, C, and D. 

(Refer to the book for a description of this problem 
and an analysis. ) 

The coding to accomplish the test on the total size 
of blocks required is the following: 



Locn. 



Oper. 


Var. Field 


CLA 


p-i 


ADD 


P 


ADD 


Q 


ADD 


Q 


ADD 


R 


ADD 


R 


ADD 


R 


CAS 


TWELVE 


TRA 


T00BIG 


TRA 


*+l 



Form 2p+2q+3r 



(Refer again to the book for further comments.) 
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ASSIGN 


CLA 


BEGINA 




ADD 


ASIZE 




ST0 


BEGINB 




ADD 


BSIZE 




ST0 


BEGINC 




ADD 


CSIZE 




ST0 


BEGIND 


BEGINA 


• * • 


t m • m 

A 


BEGINB 




#* 


BEGINC 




■** 


BEGIND 




*# 


A 


BSS 


24000 



(R) 



(Refer again to the book. ) 
(243.1 - 244.10)- 



SHIFTING 

ACCUMULATOR RIGHT SHIFT (ARS Y) (+0771 ); 2-4 cycles. 
The C(AC) p i-^r are shifted right Y bit positions. Bits 

, . «. _, ..^.'-.Ji'i.i.- 35 are i os t. Vacated positions are 



SHIFT (ALS Y) (+0767); 2-4 cycles, 
shifted left Y bit positions. Bits 
Q, are lost. Vacated positions are 



shifted past 'position 
filled with zeros. 

ACCUMULATOR LEFT 
The C(AC)q^p j i_35 are 
shifted past 'position 
filled with zeros. 

LOGICAL RIGHT SHIFT (LGR Y) (-0765); 2-7 cycles. The 
C(AC)q p i_35 and the C(MQ), considered as a single regis- 
ter, are 'shifted right Y bit positions. Bits leaving 
position 35 of the AC enter the sign of the MQ. The sign 
of the AC is unchanged. Bits shifted past position 35 of 
the MQ are lost. Vacated positions are filled with zeros. 

LOGICAL LEFT SHIFT ( LGL Y) (-0763); 2-7 cycles. The 
C(AC)o P 1-35 and the C(MQ), considered as a single regis- 
ter, are 'shifted left Y bit positions. Bits leaving the 
sign of the MQ enter bit 35 of the AC. The sign of the AC 
is unchanged. Bits shifted past the Q position are lost. 
Vacated positions are filled with zeros. 

ROTATE MQ LEFT (RQL Y) (-0773); 2-4 cycles. The 
C(MQ) are shifted left Y bit positions in an "end-around 
fashion. Bits shifted out of the sign reappear in posi- 
tion 35. No bits are lost. 

In addition to these shift instructions, there are 
two others, LONG RIGHT SHIFT and LONG LEFT SHIFT, that are 
similar to LOGICAL RIGHT and LOGICAL LEFT. In the LONG 
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shifts, only bits 1-35 of the AC and MQ shift. The sign 
of the register that bits are shifted into is made to 
agree with the sign of the other register, while the latter 
is unchanged.* 

Examples of shifting operations follow. 
If the C(AC) are (in binary) 

.QP 
-11011000000110111000110101011111000110 

then execution of the instruction 

ARS 10 
changes the C(AC) to 

QP 
-00000000001101100000011011100011010101 

If the C(AC) and the C(MQ) are respectively fin 
binary) J v 

QP 
+0000000011010110110000001010010000000 

-00000100011010010111111111001001001 
then execution of the instruction 

LGL 24 
changes the contents of these registers to 

QP 
+1010010000000100000100011010010111111 

-11001001001000000000000000000000000 
If the C(MQ) are (in octal) 

+025044210776 



Lll$ 11 , t (LI ^ ) lnst ™ction with an address of 
has the effect of moving only the MQ sign to the AC sign 
This means may be used in integer division for putting 
the dividend sign in the AC. p s 
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then execution of the instruction 

RQL 27 

changes the C(MQ) to 

-376025044210 

Note that the initial "-3" -is actually 7. 

MASKING 

Masking is accomplished by the use of the following 

logical instructions. „„™\ ^ 

"AND" TO ACCUMULATOR (ANA Y) (-0320); 3 cycles. 
Corresponding bits in the ACp^i-35 and location Y are 
compared: where both contain a 1 in any position, the bit 
in the AC is set to 1; where either or both are 0, the 
bit in the AC is set to 0. The C(Y) is unchanged. The S 
and Q positions in the AC are set to zero,. 

"AND" TO STORAGE (ANS Y) (+0320); 4 cycles. Corre- 
sponding bits in the ACp^i-35 and locatlon Y are compared; 
where both contain a 1 in any position, the bit in loca- 
tion Y is set to 1; where either or both are 0, the bit in 
location Y is set to 0. The C(AC) is unchanged. 

As an example of the use of the ANA instruction, we 
assume the following: 

octal binary 

c(ac) = 0332005777^ = 000011011010000000101111111111100000 
P,l-35 
c(y) = 007777777400 = 000000111111111111111111111100000000 

Then, execution of this instruction 

ANA Y 
changes the C(AC) p 1 _ 35 to the following: 

003200577440 = 000000011010000000101111111100000000 

In this manner, any selected portion of the C(AC) may 
be retained while other portions are masked out. The 
ANS instruction operates similarly on a word in memory, 
using the AC as a mask. The 36 bits in positions P and 
1-35 of the accumulator comprise what is frequently called 
the logical accumulator ; the subscript "L" will be used to 
refer to it. Positions S and 1-35 comprise the arithmetic 
accumulator, since those bits are involved in arithmetic. 
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■(245.3 - 246.9)' 



(R) 

PACKING AND UNPACKING 

Example 12.4 Pour positive 9-bit integers are stored 
in successive words starting at W0RDS. Write a routine to 
pack them into a single 36-bit word, PACKED. The C(W0RDS) 
is to be placed in the leftmost 9 bits of PACKED, the 
C(W0RDS+1) is to be placed in the next 9 bits, and so on. 

The AC will be used to accumulate the four numbers- 
they will be packed there from the right. To accomplish 

5 Si 6 S? n T^ V w111 be P laced in the leftmost portion 
of the MQ and the AC-M,Q double register will then be 
shifted left, to place the number in the AC. If this is 

2S ne cTT°r U r t i meS i J a11 four ™*bers will be packed in the AC- 

the SLW instruction is used to store the result. A flow- 

chart appears in Pig. 12-1 below; this flowchart is a 

computer flowchart for the 7090. An analysis of the 
packing procedure follows the program. 




Start l m 



Clear AC 



1 - i 



a ± -* left part MQ 



Shift AC-MQ left 




Fig. 12-1. Flowchart for packing routine. 
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Locn. 


Oper. 


Var. Field 






PXA 


0,0 


Clear AC 




AXT 


4,1 




GETWRD 


LDQ 


W0RDS+4,1 


One number to MQ 




RQL 


27 


Shift to left in 




LGL 


9 


Shift in AC 




TIX 


GETWRD, 1,1 






SLW 


PACKED 






HTR 






PACKED 








W0RDS 


BSS 


4 





MQ 



The C(AC)l and the C(MQ) throughout the execution of 
this program are listed below; the four loop cycles are 
shown. The action of the TIX instruction is omitted; 
effective addresses are listed. The four octal numbers 
being packed are assumed to be 510, 327, 222, and 106. 



Instruction 

LDQ W0RDS 
RQL 27 
LGL 9 

LDQ W0RDS+1 
RQL 27 
LGL 9 

LDQ W0RDS+2 
RQL 27 
LGL 9 

LDQ W0RDS+3 
RQL 27 
LGL 9 



C(AC) 



L 



000000000000 
000000000000 

000000000510 

000000000510 
000000000510 
000000510327 

000000510327 
000000510327 
000510327222 

000510327222 
000510327222 
510327222106 



C(MQ) 

000000000510 
510000000000 

000000000000 

000000000327 
327000000000 

000000000000 

000000000222 
222000000000 
000000000000 

000000000106 
106000000000 

000000000000 



At the end of this sequence, the numbers are packed in the 
AC L . 

( R ) (247.2 - 247.9) 



Example 12.5 Given a 72-character alphanumeric 
string, stored in a block from STRING to STRING+11 (6 char- 
acters to a word), write a routine to unpack the string, 
placing each character in the rightmost 6 bits of a word 
in the block UNPAKD, In the order of appearance in the 
string. 
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nnnfi? C \ W ? rd *? th S STR ? NG block must be unpacked, its 
contents being placed in 6 words in UNPAKD. This requires 
a loop of the form in Example 12.4, except that now 
unpacking is required. This can be accomplished by loading 
a word from STRING into the MQ and shifting the AC-MQ pair 
aI; b i is i putting one character at the right of the AC 
After that is stored in UNPAKD and the AC is cleared 
another rotation puts the next character into the AC* 
Surrounding this loop is an outer loop that fetches a new 
word from STRING each cycle. After that word is unpacked, 
the next word from STRING is placed in the MQ. A flowchart 

?? P "m£» ^ th t 5?2 k £ ^ f l ow ?jhart applies to the 7090 
if MQ is substituted for "MR". 

In this program, XR1 and XR2 are used for the outer 
and inner loop indices i and j, respectively. XR4 is used 
? S Ll°, lnteT (k) ' lndlca ting the next available location 
in UNPAKD for an unpacked character. After each character 
is stored, the AC must be cleared for the next one. (The 
indexing discrepancy, described in Section 8.2 of the book 
should be recalled.) J 

Locn. Oper. Var. Field 



K 


SET 


4 


I 


SET 


1 


J 


SET 


2 




AXT 


72, K 




AXT 


12,1 


L00P1 


IDQ 


STRING+12,1 




AXT 


6, J 


L00P2 


PXA 


0,0 




LGL 


6 




SLW 


UNPAKD+72,K 




TXI 


*+l,K,-l 




TIX 


L00P2,J,1 




TIX 


L00P1,I,1 




HTR 




STRING 


BSS 


12 


UNPAKD 


BSS 


72 



Modify pointer 



Chapter 13 
NUMERICAL PROBLEMS 



( R ) (254.8 - 255.8) 

FLOATING-POINT OPERATIONS 

Floating-point numbers were described in Chapter 5. 
In this form, the fraction parts are stored in bits 9"35 
and the characteristics are stored in bits 1-8. Charac- 
teristics are formed by adding 2008 to the powers of 2 in 
floating point form. Examples appear in Chapter 4 of the 
book. If the number is written so that a 1 bit appears in 
position 9 (at the left of the fraction) the number is 
normalized. 

To incorporate floating-point numbers into a FAP pro- 
gram, the DEC pseudo-operation is used with a decimal point 
in each number field. The following instruction leads to 
assembly of the integer 75: 

Oper. Var. Field 

DEC 75 

This appears as +000000000113 (octal) in the program. The 
following instruction leads to assembly of 75 as a normal- 
ized floating-point number: 

DEC 75. 

This appears as 207454000000 (octal) in the program. 
Alternately, the exponential form described in Section 11.2 
of the book may be used: 

DEC . 75E+2 

Regardless of the form given, provided a decimal point is 
present, the number is assembled in normalized form. 

In the following floating-point instructions, the 
operands are treated as floating-point numbers (not 
necessarily normalized). The results are normalized, 
except at noted. 

72 
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FLOATING ADD (FAD Y) (+0300); 6-15 cycles. The C(Y) 
is added algebraically to the C(AC), and the sum Is placed 
in the AC and the MQ. The less significant half of the 
sum is placed in the MQ and the more significant half is 
placed in the AC; the characteristic of the MQ is 33$ less 
than the characteristic of the AC. The sign of the sum is 
placed in both registers. The C(Y) is unchanged. 

FLOATING SUBTRACT (FSB Y) (+0302); 6-15 cycles. The 
C(Y) is subtracted algebraically from the C(AC), and the 
difference is placed as the sum is in FLOATING ADD. The 
C(Y) is unchanged 

FLOATING MULTIPLY (FMP Y) (+0260); 2-13 cycles. The 
C(Y) is multiplied algebraically by the C(MQ) and the 
product is placed in the AC and the MQ; the product is 
normalized if the original factors were normalized and not 
necessarily otherwise. The less significant half of the 
product is placed in the MQ and the more significant half 
is placed in the AC; the characteristic of the MQ is set 
as in FLOATING ADD. The sign of the product is placed in 
both registers. The C(Y) is unchanged. 

FLOATING DIVIDE OR HALT (FDH Y) (+0240); 3-13 cycles. 
The C(AC) is divided algebraically by the C(Y), and the 
quotient is placed in the MQ. The remainder is placed in 
the AC. The quotient is normalized if the original 
operands were normalized and not necessarily otherwise. 
If the magnitude of the AC fraction is greater than or 
equal to twice that of the fraction in Y, or if the magni- 
tude of the fraction in Y is zero, division does not occur, 
the divide-check light is turned on, and the computer stops. 

In addition to these floating-point instructions, 
there are others as follows: instructions to add or sub- 
tract the magnitude of a number to or from the C(AC), 
instructions to add, subtract, and multiply without 
placing the result in normalized form, and a divide instruc- 
tion that lets the computer continue In sequence if divi- 
sion cannot occur. 



( M ) (255.8 - 256.4) 

(The following comments apply to 255.8 - 256.4.) 
In floating-point operations, the following corre- 
spondence of registers exists: 

DELTA 63 IBM 7090 
MR AC 

AC MQ 

Thus, the result of the summation is 

C(AC) = +212435710424 C(MQ) = +157222000000 



Chapter 14 
ALGEBRAIC LANGUAGES 



( R ) _ (267.4 - 267.7)' 



THE COMPILATION PROCESS 

A PAP sequence that evaluates r is the following: 



Oper. 


Var. Pi 


.eld 




LDQ 


A 






MPY 


C 




OK if product 


MPY 


P0UR 




remains in MQ 


STQ 


TEMP 






LDQ 


B 






MPY 


B 






XCA 








SUB 


TEMP 






TSX 


SQR00T, 


4 


Sq. root of C(AC); 


SUB 


B 




result in AC 


XCA 








DVP 


A 






DVP 


TW0 






STQ 


R 
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NONNUMERICAL PROBLEMS 



(S) (At 296.5) 

NONNUMERICAL CONCEPTS 

The following logical instructions are available to 
perform the operations described in the book. 

"OR" TO ACCUMULATOR (ORA Y) (-0501); 2 cycles. 
Corresponding bits in the logical AC and location Y are 
compared; where either or both contain a 1 in any posi- 
tion,, the bit in the AC is set to 1; where both are 0, 
the bit in the AC is set to 0. The C(Y) and the S and 
Q positions in the AC are unchanged. 

"OR" TO STORAGE (ORS Y) (-0602); 2 cycles. Corre- 
sponding bits in the logical AC and location Y are 
compared; where either or both contain a 1 in any position 
the bit in location Y is set to 1; where both are 0, the 
bit in location Y is set to 0. The C(AC) is unchanged. 

COMPLEMENT MAGNITUDE (COM) (+0760,6); 2 cycles.* All 
l's are replaced by and all O's are replaced by 1 in 
the C(AC)n p .1-25- The sl S n of the AC is unchanged. 

LOGICAL COMPARE ACCUMULATOR WITH STORAGE (LAS Y) 
(-0340); 3 cycles. The C(AC)q^ p 305 and the C(Y) are 
compared, both considered as unsigned numbers If the 
C(AC) is greater than the C(Y), the computer executes 
the next instruction in sequence If the C(AC) equals the 
C(Y), the computer skips the next instruction and proceeds 
from there. If the C(AC) is less than the C(Y), the 
computer skips the next two instructions and proceeds from 
there. 



*The operation code of this instruction consists of +0760 
in bits S and 1-11 and, an addition, 00006 in bits 21-35; 
both numbers must be present. This format is true of 
several 7090 instructions; all of these have either 
-0760 or +0760 in the leftmost 12 bits. None of these 
instructions makes any references to memory. 
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The CAL, SLW, ANA, and ANS instructions introduced in 
Chapters 7 and 12 and the four instructions above are 
termed logical instructions. Each refers to the logical 
accumulator (bits P and 1-35), treating those 36 bits and 
the 36 bits of a memory word as unsigned numbers. 

( R ) , (297.4 - 298.10) 

ANALYSIS OF SYMBOLIC EXPRESSIONS 

Example 15.1 Write a routine that analyzes a symbolic 
expression, placing each symbol and each operator in 
sequence in a list, one to a word. Only expressions 
involving symbols, "+", and "-" need be considered. 

The problem is flowcharted in Pig. 15. 1 here. After 
the string is unpacked and stored in LIST, one character 
at a time is brought into the AC (at the right). The 
character is examined; if it is an operator ( "+" or "-"), 
then a symbol has just ended; that symbol is to be stored 
in NEWLST. At that point, the operator can also be stored 
in NEWLST. If the character examined is a letter, it is 
shifted within the AC so that it can be stored in SYMB0L, 
where the symbol, letter by letter, is reconstructed. With 
each additional letter within the symbol, the amount of 
the shift decreases (6 bits at a time) so that each letter 
can be properly placed. This varying shift is accomplished 
by a tagged ALS instruction; XR4 is used for this purpose 
and is modified by 6 after each shift. The symbol letters 
are combined by use of the 0RS instruction, which "or"'s 
each letter to SYMB0L. When a blank is encountered, the 
process stops, after the last symbol Is stored. 

Each character is examined to see if It is (a) a let- 
ter, (b) an operator, or (c) a blank. The last two 
possibilities are checked by testing for (c) BCD 20 ("-") 
or 40 ("+") and (c) BCD 60 (blank). Any other possibility 
is treated as a letter. In the program below, it is assumed 
that unpacking into LIST has been completed, characters 
stored at the right. A pointer (XR2) is used to indicate 
the next available space In NEWLST. LIST is assumed to be 
100 words long. 



(Start ) 
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Unpack complete expression 



Shift k 
bits left; 
store letter 




1 -* i 

1 - J 
30 - k 



Test one char. 



Blank 



Operator 



Store symbol 
and operator 



Store 
symbol 



J + 2 
30 






/stop ] 



Pig. 15.1 Flowchart of symbolic expression analysis 
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Locn. 


Oper. 


Var. Field 






AXT 


100,1 


Set 1 




AXT 


100,2 


Set j 


L00P 


AXT 


0,4 


Set k 




STZ 


SYMB0L 


Clear symbol 


NEXT 


CAL 


LIST+100,1 


Fetch 1 character 




LAS 


BLANKT 


Test for blank 




TRA 


*+2 


no 




TRA 


BLANK 


yes 




LAS 


PLUS 


Test for + 




TRA 


*+2 


no 




TRA 


0PER 


yes 




LAS 


MINUS 


Test for - 




TRA 


*+2 


no 




TRA 


0PER 


yes 




ALS 


30,4 


Here if letter 




0RS 


SYMB0L 






TXI 


*+l,4,6 


k-6 to k 




TXI 


NEXT, 1,-1 


i+1 to i; go back 


0PER 


SLW 


NEWLST+101,2 


Store operator 




CAL 


SYMB0L 






SLW 


NEWLST+100,2 


Store symbol 




TXI 


*+l,2,-2 


J-2 to j 




TXI 


L00P,1,-1 


i+1 to i; go back 


BLANK 


CAI 


SYMB0L 






SLW 


NEWLST+100,2 


Store symbol 




HTR 






BLANKT 


BCI 


1,00000 




PLUS 


BCI 


1,00000+ 




MINUS 


BCI 


1,00000- 




SYMB0L 








LIST 


BSS 


100 




NEWLST 


BSS 


100 





At the end of this program, the symbols in NEWLST are 
left-adjusted, that is, they are stored at the extreme 
left of the words in NEWLST. If it is desired that they be 
stored right-adjusted, then the complete symbol must be 
shifted right before it is stored In NEWLST. Because XR4 
begins at and is decreased by 6 for each letter in a 
symbol", the amount of the final shift needed for right- 
adjusting is 36 - C(XR4) at the time of storing. For 
example, if a symbol has 4 characters, the C(XR4) will be 
24 at the time the symbol is to be stored; a right shift 
of 12 bit positions will right-adjust the symbol. There- 
fore, the insertion of the following instruction just after 
the two CAL Instructions that place the C(SYMB0L) into the 
AC accomplishes the right-adjusting: 



ARS 



36,4 



79 



( M ) _ (299-3 - 299.8) 

(The following comments apply to 299.3 - 299.8.) 

PACKING BINARY INFORMATION 

To effect the packing, each word is placed in the MQ 
and the following two instructions are executed as a pair 
six times (after the AC is cleared): 



RQL 
LGL 



5 
1 



If this is done with the 36-bit word given, the right part 
of the AC will look as follows (in binary): 



(R). 



. . .0000000000110100 

(299.8 - 300.2)- 



Example 15.2 The program below takes 6 words of BCD 
O's and l's (in BITS to BITS+5) and packs them into one 
word, BITPAK. 



Locn. 


Oper. 


Var. Field 






AXT 


6,2 




NEWWRD 


LDQ 


BITS+6,2 


Next word to MQ 




AXT 


6,1 




NWCHAR 


RQL 


5 


Next character to AC 




LGL 


1 






TIX 


NWCHAR, 1,1 






TIX 


NEWWRD, 2,1 






SLW 


BITPAK 






HTR 




^m.7'^ 



(R) 



CODING ALPHANUMERIC INFORMATION 



Example 15.3 The following program codes the C(TERM) 
and puts the code in C0DTRM. If the C(TERM) is not found 
in the list, control will pass to ERR0R. 
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Locn. 


Oper. 


Var. Field 




AXT 


160,1 




GAL 


TERM 


AGAIN 


LAS 


TABLE+150,1 




TRA 


*+2 




TRA 


F0UND 




TIX 


AGAIN, 1,1 




TRA 


ERR0R 


F0UND 


CAL 


C0DTBL+l6O,l 




SLW 


C0DTRM 


TABLE 


BCI 


1,TRIANG 




BC I 


1, SQUARE 




BCI 


1,RECTAN 




BCI 


1,PARALL 


C0DTBL 


0CT 


20 




0CT 


21 




0CT 


23 




0CT 

• • • 


30 



Table has 160 entries 

Compare with i th entry 

Found term 

Tra if not in table 
Fetch ith code 



Here, the code for "TRIANGLE" is 20, the code for "SQUARE" 
is 21, etc. 



(S) 



(At 302.1) 



NONNUMERICAL CONCEPTS 

The following logical instruction is useful in 
nonnumerical problems 

EXCLUSIVE "OR" TO ACCUMULATOR (ERA Y) (+0322); 
3 cycles. Each bit in Y is matched with the corresponding 
bit in the logical accumulator. Where corresponding bits 
match, a replaces the bit in the accumulator; where 
corresponding bits do not match, a 1 replaces the bit in the 
accumulator. The C(Y) is unchanged. 

For example, if 

the C(AC) T = 011100001010000111111100001100001000 

the (Y) = 000000011111000011101010110001111000 

then execution of the ERA instruction places this result in 
the AC : 

011100010101000100010110111101110000 

This instruction may thus be used to identify the matching 
bits in two words. 
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The following instruction tests the status of the 
P-bit. 

P-BIT TEST (PBT) (-0760,l);.2 cycles. If the C.(AC)p 
is 1, the computer skips the next instruction and proceeds 
from there. If the C(AC)p is 0, the computer continues 
in sequence. 

The 7090 computer has a special 36-bit register, the 
sense indicator (Si) register . The following instructions 
treat the register as switches which may be logically 
treated and tested individually or in groups. 

LOAD INDICATORS (LDI Y) (+044l)« 2 cycles. The C(Y) 
replaces the C(SI). The C(Y) is unchanged. 

STORE INDICATORS (STI Y) (+06o4); 2 cycles. The C(SI) 
replaces the C(Y). The C(SI) is unchanged. 

PLACE ACCUMULATOR IN INDICATORS (PAl) (+0044); 1 cycle. 
The C(AC) L replaces the C(Sl). The C(AC) is unchanged. 

ON TEST FOR INDICATORS ( ONT Y) (+0446); 4 cycles. For 
each bit in the C(Y) that is 1, the corresponding bit in 
the SI is examined. If all the examined positions in the 
SI contain a 1, the computer skips the next instruction 
and proceeds from there. If any of the examined positions 
does not contain 1, the computer takes the next instruction. 
The C(Y) and the C(SI) are unchanged. 

Another way of stating the operation of ONT is to say 
that, considering the C(Y) and C(SI) as ordered 36-bit 
sets, the computer skips the next instruction if and only 
if the C(SI) covers the C(Y), i.e., if the SI has l's 
wherever Y has l's... Thus, if 

the C(SI) = 000001110100000001111000101000000000 

then a skip occurs in cases (a) and (b), but not .(c): 

case (a): C(Y) =000001110000000000000000101000000000 

case (b): C(Y) =000000010000000001111000000000000000 

case (c): C(Y) = 110001110000000001000000001000000000 

These and the other SI instructions have many applica- 
tions, of which the following is but a simple example: 

Generalize the PBT instruction to permit a test for 1 
in any bit of the logical accumulator; let BITWRD contain 
a 1 in the desired test position and elsewhere. The 
desired sequence : 

Oper. Var. Field 

PAI C (AC) to SI 

0NT BITWRD ' Test word 
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By using other bit patterns in BITWRD, any set of 

1's can be tested for. 

Another SI instruction of interest is the following. 

INVERT INDICATORS FROM ACCUMULATOR (HA) (+004l); 
1 cycle. Each bit of the logical accumulator is matched 
with the corresponding bit of the SI. Where a bit in the 
AC is 1, the contents of that position in the SI is 
unchanged. The C(AC) is unchanged. 

The effect of the IIA instruction is to place the 
exclusive or of the C(AC) and the C(SI) into the SI, Just 
as the ERA instruction places the exclusive or of the C(Y) 
and C(AC) into the AC. 



( R ) (307.7 - 3H.7) 

NIM 

Example 15.4 Write a program to make a Nim move; if 
the position presented is even, make a "random" move by 
removing one coin from the first nonzero group; if the 
position presented is odd, make a move to create an even 

position. 

A large range of positions will be accepted; up to 
35 bits may be present in each count (i.e., 235 - 1 is 
the maximum count), and up to 1000 groups of coins may be 
present. While these limits are extraordinarily high, 
coding this case is no more difficult than coding a 5-group 
game with count limits of 20. 

The counts are present in the block starting at 
C0UNTS; the number of groups (n) is located in GRPNUM. The 
counts are stored internally in binary form (since the 7090 
is a binary computer), which makes a good deal of the 
coding simple. C0LUMN is used to indicate the columns 
requiring change; each bit position corresponds to one 
column, and 1 indicates a change. LEPC0L is used to indi- 
cate the leftmost column requiring change. 

The program is coded in several stages. In the first 
stage, steps 1 and 2 are coded. To determine which columns 
have an odd number of l's, the ERA instruction is very 

useful. 

Consider one column, say position 35. in each word 
containing a count. Imagine that the first word is com- 
bined with the cleared AC by the ERA instruction. If the 
word contains a 1 in bit 35, that position in the AC becomes 
1, otherwise it remains 0. In fact, as a series of words 
is successively combined with the AC (which contains the 
result of all previous combinations), that bit will remain 
until the first 1 (in bit 35) occurs in a word. Then, 
as more words are combined with the AC, that bit remains 1 
until another 1 occurs in a word. In summary, the number 
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in bit 35 in the AC indicates, at all times, whether an 
odd number (l) or an even number (0) of l's has occurred 
in that position. The same reasoning applies to all bit 
positions. 



Locn. 



GET 



XC0UNT 



Oper. 


Var. Field 




CLA 


XC0UNT 


Set address 


ADD 


GRPNUM 




STA 


GET 


(Other addresses also 


LXA 


GRPNUM, 1 


set here) 


PXA 


0,0 


Clear AC 


ERA 


**,1 


(C0UNTS+n) 


TIX 


GET, 1,1 




SLW 


C0LUMN 





C0UNTS 



the 



At the end of the first stage, the columns requiring 
change are indicated by l's in C0LUMN. The second stage 
consists of the coding for step 3 and contains two parts ■ 
3a: determination of the leftmost column to be changed, 
and 3b: determination of the first row with a 1 in that 
column. To code 3a, the C(C0LUMN) are placed in the AC 
and shifted left one bit position at a time until the 
P-bit becomes 1. XR1 is used for loop control and when 
P-bit is 1, XR1 "points" to the leftmost column. For 
example, if the leftmost 1 was in bit 20, that bit moves 
to position P after 20 left shifts and the C(XR1) then 
decreases to 15 from its original 35. The proper word from 
a table of single bits, BITS, can then be selected by XR1 
and stored in LEFC0L. Part 3a is coded below,- 3b is coded 
later. 

Provision is made here for the even-position possibil- 
ity (Fig. 15.4 in the book); if the loop is cycled 35 times 
and position P is never 1, then no l's are present in 
C0LUMN and no columns require change. 
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Locn. 


Op.er. 


Var. Field 






AXT 


35,1 






CAL 


C0LUMN 




SHIFT 


ALS 


1 


Shift left 1 bit 




PBT 




Test P-bit 




TRA 


*+2 


Go on if 




TRA 


LEFTC 


Tra when 1 




TIX 


SHIFT, 1,1 






TRA 


EVEN 


Tra if no l's 


LEPTC 


CAL 


BITS+35,1 


Fetch proper bit 




SLW 


LEFC0L 




BITS 


0CT 


200000000000 


1 in bit 1 




0CT 


100000000000 


1 in bit 2 




0CT 


040000000000 


1 in bit 3 



bit position 



To code 3b, each row count is checked to see if it 
has a 1 in the bit identified in LEFC0L. This is done by 
loading each count into the AC, masking with the C(LEFC0L) 
and transfering out on a nonzero AC. If the AC is nonzero, 
a 1 must be present in the count just tested in the proper 
position. Now, XR1 is used to point to the count to be 
modified. 



Locn. Oper. 


Var. Field 


LXA 


GRPNUM, 1 


GETBIT CAL 


> - 1 - 


ANA 


LEFC0L 


TNZ 


F0UND 


TIX 


GETBIT, 1,1 



F0UND 



(Must be set as in first 
stage) (COUNTS+n) 

Tra when count with bit 
found 

XR1 still points to count 
to be modified. 



In the third stage of the program, step 4 is coded. 
Here, the number of coins to be removed from the selected 
row must be determined. Actually, what is required is 
the new count; the actual number of coins removed need not 
be computed. The sense indicators are useful here; the 
IIA instruction performs precisely the required operation: 
inverting a selected set of bits within a word. 



$5 



Locn. 
F0UND 



Oper. 


Var. Field 


LDI 


**,1 


CAL 


C0LUMN 


IIA 




STI 


> - 1 - 


TRA 


PRINT 



(Must be set. . . (C0UNTS+n)) 
Cols to be changed to AC 

(C0UNTS+n) 



PRINT Is a routine that prints the counts after the progrank 
has calculated the move. If the computer is to play 
against a man, it must inform him of its move. Somehow, 
then, the man must inform the computer of his move. This 
can be done by supplying new data cards each time or by 
entering the move into the console keys. In any event, 
the modified count is placed in the C0UNTS block and con- 
trol goes to the start of the program. 

One other routine is needed; in the event that the 
program finds an even position, it is to make a "random" 
move: remove one coin from the first nonzero group. 

Locn. 



EVEN 



EVEN1 



0NE 



Oper. 


Var. Field 






LXA 


GRPNUM, 1 






CLA 


**,1 


(C0UNTS+n) 




TNZ 


EVEN1 






TIX 


EVEN+1,1,1 






TRA 


ALLD0N 


Tra if all 


are zero 


SUB 


0NE 






ST0 




(C0UNTS+n) 




TRA 


PRINT 







DEC 



ALLD0N is a routine that prints an appropriate comment. 
(R) (316.1 - 317.3) : 



OTHER TYPES OF LISTS 



In o 
address, 
be used, 
15 bits, 
blank, ze 
1, and 2; 
may be us 
similar p 
prefixes 
PTW (plus 



rder to place three subfields into a word, the 
tag, and decrement fields of an instruction can 
provided the desired subfields have 15, 3, and 
respectively. If the operation field is left 
ros are assembled into the prefix, i.e., bits S, 

alternately the pseudo-operation PZE (jalus zero) 
ed for the same purpose. (There are other, 
seudo-operations that cause the 7 other possible 
to be assembled; these are P0N (plus one), 

two), PTH (plus three), M0N (minus one), etc.) 
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Thus the following correspondences exist within FAP: 



Machine word 
02215 2 11002 
02215 11002 
-2 11002 1 00277 



Symbolic instruction 
PZE LIST,2,W0RD 

LIST,, WORD 
MTW W0RD,1,NAME 



Example 15.5 Refer to the book for a description of 



the list 


structure 


i used. 


codes. 










Location 




Contents 


01000 





01004 


3 


01001 


01001 





01007 


1 


01002 


01002 





01003 


2 


01010 


01003 





01012 


4 


01011 


01004 





01006 


1 


01005 


01005 





01014 


3 


01013 


01006 





01016 


4 


01015 


01007 





00000 


7 


00115 


01010 





00000 


7 


00400 


01011 





00000 


7 


42000 


01012 





00000 


7 


00221 


01013 





00000 


7 


03300 


01014 





00000 


7 


03301 


01015 





00000 


7 


03305 


01016 





00000 


7 


03310 



(R). 



INTEGER CONVERSION 



(320.1 - 



Location 


Oper. 


Var. Field 


LO 


PZE 


L1,3,L4 


LI 


PZE 


L2,1,L7 


L2 


PZE 


L8,2,L3 


L3 


PZE 


L9,4,L10 


L4 


PZE 


L5,1,L6 


L5 


PZE 


L11,3,L12 


L6 


PZE 


L13,4,Ll4 


L7 


PZE 


ABC, 7 


L8 


PZE 


NAME, 7 


L9 


PZE 


LIST, 7 


L10 


PZE 


W0RD,7 


Lll 


PZE 


XI, 7 


LI 2 


PZE 


X2,7 


L13 


PZE 


X3.7 


L14 


PZE 


X4,7 



Example 15.6 Let a block of integers ni(l <^ n± <^ N Q 
for i = 1,2, ...,k) be located starting at BL0CK. It is 
desired to classify them by assigning a class number c± to 
each. To perform this classification, the integer ni (the 
argument) is placed in XR2 and the number c± f located in 
the (mj_-l) t h word from the end of a block at TABLE, is 
fetched. This number is stored in the ni th position of a 
parallel table, CLASS. N is assumed to be 100. 
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Locn. 


Oper. 


Var. Field 




CLA 


XBL0CK 




ADD 


K 




STA 


ARG 




CIA 


XCLASS 




ADD 


K 




STA 


PUT 




LXA 


K,l 


ARG 


CLA 


**,1 




PAX 


0,2 




CLA 


TABLE+100,2 


PUT 


ST0 


**,1 




TIX 


ARG, 1,1 


XBLOCK 


• • • 


BL0CK 


XCLASS 




CLASS 


K 







Set addresses 



(BL0CK+k) 

Put argument in XR2 

(CLASS+k) 



In this problem, the argument domain is 100 (N n ) in 
size and a table (TABLE) of that size contains the numbers 
c ± . These numbers cover the image range. A limitation to 
this method is the maximum size of N permitted, since a 
table of that size is required. 

(r) (320.6 - 321.5) 

PATTERN DETECTION 

[ Example 15.7 Count all appearances of bits "1011" 
and 0100 in the block of 50 words starting at PATTRN, 
and place these counts in CNTR1 and CNTR2, respectively 
Consider each word to consist of nine 4-bit bites. 

The arguments are numbers from to 15 inclusive* 
these are the decimal numbers represented by the 16 dif- 
ferent bites. A transfer of control is made to one 
address in a l6-word table, depending on the argument. In 
all but two of these locations, a transfer is made immed- 
iately back to the main subroutine. In the other two, 
transfers are made to counting routines, after the execu- 
tion of which control is returned to the main routine. 

Locn. Oper. Var. Field 

50,1 

PATTRN+50,1 Put a word in MQ 

9,2 

0,0 Clear AC 

^ , Put 1 bite in AC 

0,4 

TABLE+16,4 (TABLE is defined below) 

L00P2,2,1 ; 

L00P1,1,1 





AXT 


L00P1 


LDQ 




AXT 


L00P2 


PXA 




LGL 




PAX 




TRA 


0UT 


TIX 
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14 of the 
the following: 

TRA 



16 instructions in the block at TABLE are 



0UT 



These correspond to the 14 different bites that are not 
processed. The other two instructions are 



TRA 
TRA 



C0UNT1 
C0UNT2 



which occupy the sixth and eleventh words from the end of 
the block, corresponding to the two patterns to be 
processed. The routine at C0UNT1 is 



C0UNT1 CLA CNTR1 

ADD 0NE 

ST0 CNTR1 

TRA 0UT 



Add 1 to CNTR1 



The routine at C0UNT2 is similar. 
( S ) (At 322.0)' 



PLACE COMPLEMENT OP ADDRESS IN INDEX (PAC) (+0737); 



The 2's complement of the C(AC)2i- 
of the specified index register. 



5 replaces the contents 
ie C(AC) is unchanged. 



(R) (322.1 - 322.7) 

Example 15.8 Refer to the book for a description and 
analysis of this problem. In this program, k, the number 
of integers, is taken to be 500. The maximum value of 
the numbers is taken to be 10000. The complement of each 
integer is placed in XR2 so that the indexing on the ST0 
Instruction places ni in LIST+n. 



'1' 



Locn. Oper. 



Var. Field 





AXT 


500,1 


L00P1 


CLA 


BL0CK+5OO,1 




PAC 


0,2 




ST0 


LIST, 2 




TIX 


L00P1,1,1 



Fetch an 
Place in 
Store in 



integer 

XR2 , c omp lemented 

LIST 



This loop constitutes the integer-ordering process. Note, 
for example, that the number 45 is stored in LIST+45.. 
873 is stored in LIST+873, etc. The zero-removal routine 
is the following: 
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L00P2 



AXT 


10000,1 




AXT 


10000,2 




CLA 


. LIST+10000,1 


Fetch a number 


TZE 


*+3 




ST0 


LIST+10000,2 


Move if nonzero 


TXI 


*+l,2,-l 




TIX 


L00P2,1,1 





The two XR's act as pointers here; XR1 also serves for 
loop control. XR1 points to the number being tested; 
XR2 points to the next available location for its final 
position. The presence of a zero (indicating a missing 
value) leaves XR2 unchanged, so that each nonzero number 
is stored in a successive position in the list. A. count 
of the number of entries in LIST is given at the end by 
10000 - C(XR2). 



Chapter 16 
DATA PROCESSING 



( S ) ( At 331.10) 

CONVERSION 

The 7090 computer has three special instructions 
useful in the conversion of information in one form to an- 
other form. These convert instructions treat each 36-bit 
word as a set of six 6-bit bites, operating upon each bite 
in sequence. One of the instructions follows. 

CONVERT BY ADDITION PROM THE MQ (CAQ Y) (-0114); 
2-8 cycles. The MQ is considered to consist of six 6-bit 
quantities; these may be designated as follows: LI: 
Bits S and 1-5; L2: bits 6-11; ...; L6: bits 30-35. An 
effective address Y + LI is formed and the C(Y+Ll) is added 
to the ACqp 1-35 (the sign is unchanged). Then the C(MQ) 
is rotated six positions to the left. As a next step, a 
new effective address Y' + L2 is formed, where 
Y' = C(Y+L1) 21-35, and the C(Y'+L2) is added to the AC. 
Then the MQ is rotated six more positions to the left. 
This process occurs n times, n being the C(INSTR) 10-17, 
where INSTR contains the CAQ instruction. 

Examples of the use of the CAQ and the other two 7090 
convert instructions appear in the IBM manuals, under 
"Programming Examples. Other uses are given below in 
Examples 16.2 and 16.3A. 

Within PAP, the count is designated as the third sub- 
field in the variable field. 

(R) (332.2 - 333.10) 



Example 16.1 Write a routine to convert alphanumeric 
octal information to binary form. 

This conversion process is a simple one and does not 
benefit particularly from the use of CAQ. Refer to the 
book for an analysis. Here, the number to be converted is 
placed initially in the MQ. The converted word remains in 
the AC. 
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Locn. Oper. Var. Field 

AXT 6,1 

PXA 0,0 Zero AC 

L00P RQL 3 

LGL 3 

TIX *-2,l,l 

Example 16.2 Write a routine to convert alphanumeric 
decimal information to binary form. A number in DIGITS is 
to be converted; the result is to be stored in SUM. 

The CAQ instruction can be used to great advantage, 
since it permits a sum of numbers to be accumulated rapidly 
as the result of a series of table references. Consider 
a BCD word containing an integer: 002258. The number can 
be calculated by summing 8x100, 5x101, 2x102, and 2x103. 
For this purpose, six tables of 10 words each are required. 
The address fields of the words in these tables each con- 
tain the head of the following table, so that reference is 
made in succession to the six tables . The decrements of 
the first table contain the 10 digits from to 9. The 
decrements of the second table contain the numbers 0, 10, 
20, ..., 90. The decrements of the sixth table contain 
the numbers 0, 100000, 200000, ..., 900000. The addresses 
of the sixth-table words are irrelevant. (Special care is 
required that the sum of the six addresses from the table 
does not overflow into the left part of the AC, where the 
sum is accumulated. This overflow can never extend past 
the decrement for a count of 6. ) 



Locn. Oper. Var. Field 



LDQ 


DIGITS 


PXA 


0,0 


CAQ 


CTABLE,,6 


ARS 


18 


SLW 


SUM 



Load number in MQ 

Place sum in address field 
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The table begins as follows, where 00500 is the 
address of CTABIE : 



Location 




Contents 










00500 





00000 


00512 


CTABIE 


PZE 


CTABLE+10, 


,0 


00501 





00001 


00512 




PZE 


CTABLE+10, 


,1 


00502 





00002 


00512 




PZE 


CTABLE+10, 


,2 


00503 





00003 


00512 




PZE 


CTABLE+10, 


,3 


00504 





00004 


00512 




PZE 


CTABLE+10, 


,4 


00505 





00005 


00512 




PZE 


CTABLE+10, 


,5 


00506 





00006 


00512 




PZE 


CTABLE+10, 


,6 


00507 





00007 


00512 




PZE 


CTABLE+10, 


,7 


00510 





00010 


00512 




PZE 


CTABLE+10, 


,8 


00511 





00011 


00512 




PZE 


CTABLE+10, 


,9 


00512 





00000 


00524 




PZE 


CTABLE+20, 


,o 


00513 





00012 


00524 




PZE 


CTABLE+20, 


,10 


00514 



le 


00024 
I6.3 


00524 


routine to 


PZE CTABLE+20, 
convert binary 


,20 


Examp 


Write a 





numbers to alphanumeric decimal form. 

This is the reverse of the process in Example 16.2, 
but it is not possible to program the problem in the 
opposite manner. Instead, a simple approach is obtained 
by using the repeated division process described in 
Section 4.2. Arithmetic must be done in binary; in a 
binary machine this Is automatic. The remainders are saved 
in binary, which happens to be their BCD form, since all 
remainders are digits. The number to be converted is 
located in NUMBER. A 35-bit number may contain as many as 
11 decimal digits, when converted. 



Locn. Qper. 



M0RE 



Var. Field 



AXT 


11,1 


LDQ 


NUMBER 


PXA 


0,0 


DVP 


TEN 


ST0 


LIST+11,1 


TIX 


M0RE,1,1 



Store remainder 



After execution of this routine, the 11 digits are stored 
in sequence in the block at LIST, with the low-order digit 
in LIST. A packing routine can place them in two words; 
they will then be in BCD form. 
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( S ) (At 334.2)- 



CONVERSION 

The following instruction is useful in the conversion 
of 6-bit bites to other 6-bit bites. 

CONVERT BY REPLACEMENT FROM THE MQ (CRQ Y) (-0154); 
2-8 cycles. This instruction is similar to CAQ in its 
execution, except that the leftmost 6 bits (S and 1-5) of 
the referenced words replace the 6-bit quantities in the 
MQ, LI, L2, ..., L6. As before, the MQ is rotated six 
positions left after each such substitution. The count n 
applies as in CAQ. 

Example 16.3A* Write a program that scans the 
100 words starting at LIST and makes the following BCD sub- 
stitutions : 

replace all even digits by X; 
replace all vowels by Y; 
leave other codes unchanged. 

The program is the following: 



Locn. 


Oper. 


Var. Field 






AXT 


100,2 




L00PS 


LDQ 


LIST+100,2 


Word to MQ 




CRQ 


TABLE,, 6 


Convert word 




STQ 


LIST+100,2 


Store word 




TIX 


L00PS,2,1 






HTR 







In addition, a table is required which contains the new 
BCD codes in bits 1-6 and the address of the table (i.e., 
TABLE) in all address fields. 

To create such a table, the FAP pseudo-operation VFD 
is useful. As an example of its use, consider 

Locn. Oper. Var. Field 

PLACE VFD H6/X,15/,15/NAME 



*This example has no counterpart in the book. 
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Here, the items in the variable field mean the following: 
generate a 36-bit word at PLACE with its first 6 bits the 
Hollerith X., its next 1^ bits ignored (zeros), and its 
next 1J5 bits the equivalence of the symbol NAME .* The 
table thus begins as follows: 



TABLE 



VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
VFD 
BSS 
VFD 
VFD 
BSS 
VFD 
VFD 
VFD 
VFD 



h6/x,15A 
h6/i,15A 
h6/x,15A 
h6/3,15A 
h6/x,15A 
H6/5,15/, 
H6/X,15/, 

H6/7,15A 
H6/X, 15/, 

H6/9,15/, 

1 

h6/=, 15/, 

H6/M5/, 

3 

H6/+,15/, 

h6/y,15A 

h6/b,15A 

h6/c,15A 



15/TABLE 
15/TABLE 
15/TABLE 
15/TABLE 
15/TABLE 
15/TABLE 
15/TABLE 
15/TABLE 
15/TABLE 
15/TABLE 

15/TABLE 
15/TABLE 

15/TABLE 
15/TABLE 
15/TABLE 
15/TABLE 




1 
2 

3 
4 

5 
6 

7 
8 

9 
nil 



3 

+ 
A 
B 
C 



nils 



(R) 



(338.7 - 340.2). 



SORTING (ORDERING) 

TRANSFER ON LOW MQ (TLQ Y) (+0040); 2 cycles. If the 
C(MQ) is algebraically less than the C(AC), the computer 
takes its next instruction from location Y. If the C(MQ) 
is algebraically greater than or equal to the C(AC), the 
computer continues in sequence. 

Example 16. 4 Write a routine to perform an inter- 
change sort of 100 numbers, located starting at NUMBRS. 

Let l± be the i th location in the list. During the 
first pass, the first comparison is made between the C(-ti) 
and the C({,2), and the last comparison is made between 
the 0(^90) and the C(^ioo)- The i th comparison is made 
between the C(ti) and the C(t 1+1 ); i runs from 1 to 99. 
In the program, the index, as given by the C(XRl), runs 
initially from 99 to 1, then on succeeding passes runs 
from 99 to limits that increase by 1 each pass. This is 



*Refer to a FAP manual for more details on VFD. 
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accomplished by modifying the test instruction (TXH) after 
each pass through the numbers. The whole process term- 
inates when XR2 is reduced to 1, after the 99th pass. The 
AC and MQ, are used for comparison and exchange. The 
following routine places the smallest number first. 



Locn. Oper. 

CLA 
STD 
AXT 
NEWPAS AXT 
NEWNUM LDQ 
CLA 
TLQ 
STQ 
ST0 
TXI 
TEST TXH 
CAL 
ADD 
STD 
TIX 

DECR1 0CT 
ZER0 
NUMBRS BSS 



(M). 



Var. Field 

ZERO 

TEST 

99,2 

99,1 

NUMBRS+99, 1 

NUMBRS+100,1 

N0EX 

NUMBRS+100,1 

NUMBRS+99,1 

*+l,l,-l 

NEWNUM, 1,** 

TEST 

DECR1 

TEST 

NEWPAS, 2,1 

1000000 

100 



Initialize test 



Start new pass 

l± to MQ 

*d+l to AC 

^i+1 greater; no exch, 



Test for last number 
Modify test; add 1 to 
decrement 



1 in decrement 



■(340.2 - 340.5)' 



The book discusses, in 340.2 - 340.5, the efficiency 
of this sorting procedure. The following instruction can 
be inserted in the program to test for an interchange in 
a given pass: 



STZ 



INDIC 



(R). 



■(341.1 - 341.10)^ 



MERGING 

Example 16. 5 Write a routine to merge the lists in 
the blocks at LIST1 and LIST2 of sizes m and n, respec- 
tively, forming a single ordered list, NEWLST. The 
original lists have no more than 1000 numbers each. 

The flowchart in Pig. 16.3 in the book shows the 
process. The entries in LIST1 are a±; the entries in 
LIST2 are by, the locations in NEWLST are l^. XR1 and 
XR2 act as pointers to the two original lists; XR4 acts 
as a pointer to NEWLST. 
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In order to insure that trouble does not occur when 
either list is exhausted, an extra number is assumed 
present at the end of each list. This number exceeds any 
number in the list and is not counted (in the counts m 
and n). When m + n numbers are merged and the process 
stops, these numbers are ignored. At the end of the 
merging process, a dummy number (in LARGE) must be attached 
to the end of NEWLST. 



Locn. Oper. 



NEXT 



SMALL1 



SMALL2 



M0D 
SET 



CLA 
SUB 
SUB 
ALS 
STD 
AXT 
AXT 
AXT 
CLA 
LDQ 
TLQ 
ST0 
TXI 
STQ 
TXI 
TXI 
TXH 
CLA 
ST0 
HTR 



Var. Field 

X2001 

M 

N 

18 

SET 

2001,4 

1001,1 

1001,2 

LISTl+1001,1 

LIST2+1001,2 

SMALL2 



Form 2001-m-n; 

set into test instr. 



Compare a. and b. 



NEWLST+2001,4 Store a, (smaller) 

M0D,1,-1 

NEWLST+2001,4 Store b, (smaller) 

M0D,2,-1 J 

*+l,4,-l 

NEXT, 4,** (2001-m-n) 

LARGE Store large number 

NEWLST+2001,4 (dummy) at end 



M 

N 

LARGE 

X2001 

LIST1 

LIST 2 



0CT 
DEC 
BSS 
BSS 



NEWLST BSS 



377777777777 

2001 

1001 

1001 

2001 



Chapter 17 
MACRO-INSTRUCTIONS 



(s) ( At 348> 10) 

MACRO-INSTRUCTION PSEUDO-OPERATIONS 

in BE-pip PS Bp?r?K r ^ l0n3 T d S SCrlbed here are a11 available 
in Bb-FAP, Bell Telephone Laboratories' version of PAP 

They are not all available in other 7090 assemblers while 
sys?e r ms? *' ^ ^ descrlbed ' *** ** presen^in Sther 

( R ) ______( 3 4 94 o _ 3 4 9>9 ) 

Example 17.1 Define and use a macro-instruction thai- 
sums three numbers and stores the result Bbj:ucT;:Lon ™at 
The macro-definition: 

Locn. Oper. Var. Field 

SUM3 MACRO A,B,C,S 

CLA A 

ADD B 

ADD C 

ST0 S 
END 

This macro-instruction sums the C(A), 0(B), and C(C) and 
stores the sum in S. K J> { >' and 

Consider this macro-call: 

SUM3 WORD, DIGIT , NUMBER, RESULT 

This call expands into the following sequence: 

CLA W0RD 

ADD DIGIT 

ADD NUMBER 

ST0 RESULT 
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There is no restriction on the nature of the alpha- 
numeric strings that may be substituted for dummy argu- 
ments. The following indicates some possibilities. 

Call the SUM3 macro-instruction using more complex 

call arguments. 

(1) The following call 

Oper. Var. Field 
S.UM3 WORD+1, (DIGIT+1, 3), NUMBER, RESULT 

expands into the following: 

CLA W0RD+1 

ADD DIGIT+1,3 

ADD NUMBER 

ST0 RESULT 

(2) The following call 

SUM3 W0RD+NAME-23, ,NUMBER+3,/0/44OOO 

expands into the following: 



CLA 
ADD 
ADD 
ST0 



W0RD+NAME-23 

NUMBER+3 
/0/44OOO 



(R) 

Location 

00100 
00101 
00102 
00103 
00107 
00110 



(350.1 - 350.3) — 

Contents Location 



+0774 00 1 00012 
+0500 00 00223 
+0601 00 00224 

+0120 00 00117 
+1 00001 2 00111 



L00P 



Oper. Var. Field 

AXT 10, 1 

CLA X 

ST0 Y 

SUM3 NAME,W,X,Z 

TPL NEXT 

TXI *+l,2,l 



■(At 350.4) 



(s) 

The FAP pseudo-operation used to cause printing of 
macro-instruction expansions is PMC (^rint macro- 
instruction). Repeated use of PMC "turns on and then 
"turns off" this printing. 



( R ) (351.4 - 351.10)— 

PSEUDO-OPERATIONS 

Example 17.2 Compute the value of p: 

p = (a+b+c)(d+e+f+g+h)/(a+d+h) 
We can use the SUM3 macro-instruction: 
Oper. Var. Field 

SUM3 A,B,C,TEMP 

SUM3 D,E,F, TEMP+1 

SUM3 TEMP+1, G,H, TEMP+1 

SUM3 A,D,H,TEMP+2 

LDQ TEMP 

MPY TEMP+1 

DVP TEMP +2 

STQ P 

«„ 0+ . In this program, to sum five numbers, the SUM3 macro- 
.'Sind^S SS^iSSin^ ° allS Sh ° Uld ^e^Sl.f SeV 



CLA 


D 


ADD 


E 


ADD 


P 


ST0 


TEMP+1 


CLA 


TEMP+1 


ADD 


G 


ADD 


H 


STJ2J 


TEMP+1 



( R ) (352.4 - 352.9) 

CONDITIONAL ASSEMBLY 

is used e to°pf?!^ g P s ^o-operation in the PAP assembler 
is used to effect conditional assembly: 

Qper. Var. Field 

IFF P,A,B 
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ThP P subfield represents a symbolic expression, while the 
A and B subfields represent alphanumeric strings. The 
instruction that is next after the IFF pseudo-operation is 
assembled if and only if the quantities p and q have the 
same values, where 

j-0 if the equivalence of P is zero 
P "li if the equivalence of P is nonzero 

r if A and B are nonidentical strings 
q ll if A and B are identical strings 

If at least one symbol in P is undefined prior to the 
occurrence of the IFF pseudo-operation, then p - u. 

As examples, the following instructions will cause 
the suppression of the next instructions: 

IFF 1,R,S 

IFF 0, XXX, XXX 

IFF L0C+2O,AA+1,1+AA 

provided the equivalence of L0C is not -20. Note that 
AA+1 and 1+AA are not identical strings (although they 
have ?he same equivalence). The following instructions 
will cause the assembly of the next instructions: 

IFF 1,SS,SS 

IFF 0,X,Y 

IFF NAME -NAME, A+B+C,A+C+B 

Arguments to be substituted in the three subfields 
of IFF may be substituted within a macro-definition as 
may any argument. 



(R) (353.0 - 354.7) 

This pseudo-operation may be used to suppress the 
instructions discussed in Example 17.2 For example, if 
we write 

IFF 0,AC,A 

then assembly if the next instruction will occur if and 
onlv if A is not AC. , 

Example 17.3 Revise the SUM3 macro-insti^ction r ?„„ 
supp ress AC instr uctions as indicated. Recode the evalua- 
tion of p, given in Example 17.2. 
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The macro-definition is 
Locn^ Oper. Var. Field 



SUM3 



MACR0 

IFF 

CLA 

ADD 

ADD 

IFF 

ST0 

END 



A,B,C,S 

0,AC,A 

A 

B 

C 

0,AC,S 
S 



t-T^p^oS"?"?? the followl ng call and how it will be 
treated by the assembler. 

SUM3 D,E,F,AC 

a C re S d???erent f rI St F*'« l ±n °% the IFF A and B ^bfields 

hil / L and B = AC ^on substitution) ^ q = n 

while p - also. Therefore, assembly of the next inst-r^ 
tion occurs. Next consider the second tff w™ instruc^ 
IFF A and B subfields are the Lm^^ey are & "$« 
upon substitution so that q = 1 whilP n - n S ^ 

next instruction is not asse^bl d "' e efo^ tMs'call^ 
expands as follows: ore znis cal1 



CLA 


D 


ADD 


E 


ADD 


F 



By similar reasoning, the call 

SUM3' AC, G,H, TEMP+1 
expands into 



ADD 
ADD 
ST0 



G 

H 
TEMP+1 



The revised coding begins as follows (see Example 17.2): 



SUM3 A,B,C,TEMP 

SUM3 D,E,F,AC 

SUM3 AC, G,H, TEMP+1 

SUM3 A,D,H,TEMP+2 
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The second and third calls expand into the following: 



CIA 


D 


ADD 


E 


ADD 


F 


ADD 


G 


ADD 


H 


ST0 


TEMP+1 



The redundant coding of Example 17.2 is ™t a ssemb led 

In this use of the IFF pseudo-operation, the symbol 
"AC" is used because it is suggestive of the accumulator. 
Of course, any desired symbol may be used. 



(M) (355.4 - 355.9) 

This material has no exact counterpart in PAP, since 
f v a JT7W r^eudo-oneration is more structured differently 
from each of the S-type HAP pseudo-operations. However, 
Sere are parallels; the following usages are equivalent 
in the two languages: 

HAP fap 

IFSAME A,B IFF 1,A,B 

IFDIFF A,B IFF 0,A,B 

IFZER0 Q IFF Q> 1 

IFN0NZ Q IFF Q 

(The reader should now read the material of 
occ 4 _ ^55.9 and then read the following.) 

The first two cases of IFF above, Illustrated in 
earlier examples, permit the variability of the second and 
third subfields. The last two cases illustrate its use 
with a variable first subfield, which can then be tested 
f r zeroness. Thus, with subfield A = 1 and subfield B 
blank q = and assembly of the next instruction occurs 
if and only if Q is zero. Conversely, in the last case, 
asslmbl? occurs if and only if Q is nonzero. The book's 
examples of the following form apply in FAP: 

IFF Q/5 

IFF $-072*2,1 

( R ) (356.0 - 356.4) 



REPETITION IN CODING 

Examp le 17 4 Write a macro-instruction to determine 
the sum of the cubes of three quantities and to store the 
result. 
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The macro-definition is 

Locn. Oper. Var. Fie ld 

SUMCUB 



MACR0 


A,B,C,S 


STZ 


TEMP 


LDQ 


A 


MPY 


A 


MPY 


A 


XCA 




ADD 


TEMP 


ST0 


TEMP 


LDQ 


B 


MPY 


B 


MPY 


B 


XCA 




ADD 


TEMP 


ST0 


TEMP 


LDQ 


C 


MPY 


C 


MPY 


C 


XCA 




ADD 


TEMP 


ST0 


S 


END 





(r) (356.6 - 357.8) 

Coding delimited by the IRP (indefinite repeat) pseudo- 
operation at the start and end is repeated once for each 
call argument supplied for a dummy argument A, the coding 
being assembled with the call arguments given for A 

At the start: 



Oper. 


Var. 


Field 


IRP 


A 




At the end: 






IRP 







^L! eVeral ca Jl arguments for A are placed within paren- 
theses, separated by commas. 

. ,. Exa mple 17.4, continued Recode the SUMCUB macro- 
instruction, using IRP. 
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The new macro-definition: 
Locn. Oner. Var. Field 



SUMCTJB MACR0 


X,S 


STZ 


TEMP 


IRP 


X 


LDQ 


X 


MPY 


X 


MPY 


X 


XCA 




ADD 


TEMP 


ST0 


TEMP 


IRP 




ST0 


S 


END 





The call 

SUMCUB ( XI ,X2,X3), RESULT 



expands into 



STZ 


TEMP 


LDQ 


XI 


MPY 


XI 


MPY 


XI 


XCA 




ADD 


TEMP 


ST0 


TEMP 


LDQ 


X2 


MPY 


X2 



The sequence is the same as given earlier, except for an 
extra ST0 instruction near the end of the sequence. 

The second macro-definition is shorter than the first 
and serves for any number of repetitions. Thus the same 
definition can be called upon by the following instruc- 
tions : 

SUMCUB (W0RD1,W0RD2), ANSWER 
SUMCUB (Y1,Z1,X1,A1,B2,C3),SUM 

In the first two cases two parameters are involved; in the 
second, six parameters are involved. Through the use of 
the IRP pseudo-operation a macro-instruction of variable 
length may be defined. The length of the expanded coding 
depends on the manner in which the macro-instruction is 
called. 



(R). 



105 



(357.9 - 358.3)' 



CREATED SYMBOLS 

Example 17.5 Write a maoro-instruction that adds the 
larger of two numbers to a third, leaving the sum in the 
accumulator. If the numbers are equal, a jump to EQUAL 
should occur. ^^.^nu 

The macro-definition is 
Locn. 

LARSUM 



DD 



Oper. 


Var. Field 


MACR0 


A,B,C 


CLA 


A 


CAS 


B 


TRA 


DD 


TRA 


EQUAL 


CLA 


B 


ADD 


C 


END 





(R). 



(358.4 - 358.10). 



^=^ o 7 T" 7 foments that appear in a macro-definition 
that are not called for within a macro-call, provided thev 
are omitted at the end of the call, are replaced by the 
assembler by created symbols. The following symbols are 
created: ..001, ..002, ..003, etc.; they are created in 
this sequence as needed. 

t apoti^ 8 ^ 16 , 11: 5 ' 6ontln "*rt Rewrite the macro-instruction 
LARSUM, permitting a created symbol. 

The macro-definition, which has one extra dummv 
argument, is * 



Locn. 
LARSUM 



DD 



Oper. 


Var. Field 


MACR0 


A,B,C,DD 


CLA 


A 


CAS 


B 


TRA 


DD 


TRA 


EQUAL 


CLA 


B 


ADD 


C 


END 
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The call 



LARSUM NUMBR1,NUMBR2, DIGIT 

which means "add the larger of the C(NUMBRl) and the n 
C(NUMBR2) to the C (DIGIT), and leave the sum in the AC, 
expands Into 



. .001 



CIA 


NUMBR1 


CAS 


NUMBR2 


TRA 


..001 


TRA 


EQUAL 


CAL 


NUMBR2 


ADD 


DIGIT 



■(359.0 - 359.3)' 



(M) 

This material applies here, with just one change. 
Dummy arguments to be replaced by created symbols do not 
appear on CREATE cards, as described in the book. 



(R) (359.3 - 359.7) 

Example 17.6 Write a macro-instruction that places 
the larger of two numbers In the accumulator. If the 
numbers are equal, a jump to EQUAL should occur. 

The macro-definition is 



Locn. 


Oper. 


Var. Field 


LARGER 


MACR0 


A,B,DD 




CLA 


A 




CAS 


B 




TRA 


DD 




TRA 


EQUAL 




CLA 


B 


DD 


BSS 
END 





The 


call 






LARGER 


W0RD5,W0RD7 


expands into 






CLA 


W0RD5 




CAS 


W0RD7 




TRA 


. .001 




TRA 


EQUAL 




CLA 


W0RD7 


..001 


BSS 
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(S) ( At 359.10)" 

A special pseudo-operation is available to determine 
whether or not a given symbol within a macro-definition 
has been replaced by a created symbol. 

Oper. Var. Field 

IFF P,/CRS/X 

P has the same significance as previously, in the IFF 
pseudo-operation. The quantity q has the value if X is 
not a created symbol and the value 1 if it is. Thus, 

IFF 1,/CRS/Q 

causes assembly of the next instruction if and only if Q 
is created. 



(r) (360.3 - 361.3) 

REMOTE ASSEMBLY 

Coding delimited by the card 

RMT 

(for remote) at the start and at the end is assembled as 
normally but is not assigned to memory locations until the 
end of the program. 

Example 17.7 Write a macro-instruction to evaluate 
and store the function 

f (x) = 5a + be 

At constant, 5, and one word of temporary storage are 
required. In the following macro-instruction, these two 
words are remotely assembled. 
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Locn. 


Oper. 


Var. Field 


PUNCTN 


MACR0 


A,B,C,R,FIVE,TEMP 




LDQ 


A 




MPY 


FIVE 




STQ 


TEMP 




LDQ 


B 




MPY 


C 




XCA 






ADD 


TEMP 




ST0 


R 




RMT 




FIVE 


DEC 


5 


TEMP 


RMT 
END 





The call 

FUNCTN XX,YYY,ZZZZ,ANS 



expands into 



LDQ 


XX 


MPY 


..001 


ST0 


. .002 


LDQ 


YYY 


MPY 


ZZZZ 


XCA 




ADD 


. .002 


ST0 


ANS 



while the two words 

. . 001 DEC 5 
. .002 

are assembled at the end of the program. Created symbols 
are used to refer to these two words to avoid multiple 
definitions as "before. 

(This method actually wastes space, however, since 
two words are assembled per FUNCTN macro-call, whereas 
only two are needed in all. However, it points out that 
macro-instructions can be completely self-contained, which 
is useful. ) 
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(R) (36lj4 _ 362>4) ^ 

NESTED MACRO-INSTRUCTIONS 

one ofTn?5e4fc S fu n W o1 1 t :ns: ma0r0 - lnStrUOtl0n that °<»»»*« 



f - a + b, 
g = a - t, 



if a and b are both positive; 
otherwise. 



are dX" nm!'™ ' 1 ™" f ° r addltlon and subtraction 
Locn .r,. . Oper. Var. Field 

ADDMAC MACR0 A.BjC 

CLA A 

ADD B 

ST0 C 
END 

SUBMAC MACR0 A^B.C 

CLA A 

SUB B 

ST0 C 
END 

The main macro-definition is 

C0MPUT MACR0 K , L,S,SUB, 0UT 

CLA K 

TMI SUB 

CLA L 

TMI SUB 

ADDMAC K,L,S 

TRA 0ut 

SUB SUBMAC K,L.S 

0UT BSS 

END 



The call 



C0MPUT THIS, THAT, RESULT 



L(g) n = S THAT° a'nd LffTo^rT^ Where L ^ " ™IS, 
\vj ±n*i, ana L{T ) or L(g) is RESULT. 
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..001 



..002 



CIA 


THIS 


TMI 


..001. 


CIA 


THAT 


TMI 


..001 


CIA 


THIS 


ADD 


THAT 


ST0 


RESULT 


TRA 


. .002 


CIA 


THIS 


SUB 


THAT 


ST0 


RESULT 


BSS 






Expansion of ADDMAC 



Expansion of SUBMAC 



(M) (363.7 - 364.5) 

(This material has no counterpart ^ v ^P, fl ince there 

var^le Ldress that refers to the end of the macro- 
Instruction. In other words, G0 causes assembly of the 
*lt of the macro-instruction to he suppressed J 



(365.3 - 366.4)- 



(R) 

Krample 17.10 Write a macro-instructions to perform 

tW ° l.^iS^^tSglS^nt Placing zeros in ever, 
ord in the blo ck. The call is to have the form 



w 



Locn. Qper. 



Var. Field 



CLRBLK BL0CK,N 

This means "Clear the block starting at BL0CK of size 
cW"ftSe number of words in the block is located In N. 
The macro-definition is 



CLRBLK 



MACR0 

AXT 

STZ 

TIX 

END 



A,B 
B,4 
A+B,4 
*-l,4-,l 



XR4 is used in all the block macro-instructions and Is 
therefore to be used outside with caution. 



Ill 

2. Moving The call is to have the form 

MOVBLK BL0CK1,N1,BL0CK2,N2 

This means "Move the block at BL0CK1 of size C(Nl) so that 
it immediately follows the block at BL0CK2 of size C(N2). 
The macro-definition is 

B1,N1,B2,N2,Z1,Z2,Y1,Y2 



M0VBLK 


MACR0 


B1,N1 




CLA 


Zl 




ADD 


Nl 




STA 


Yl 




CLA 


Z2 




ADD 


Nl 




ADD 


N2 




STA 


Y2 




AXT 


Nl,4 


Yl 


CLA 


**,4 


Y2 


ST0 


**,4 




TIX 


*-2,4 




RMT 




Zl 




Bl 


Z2 


RMT 
END 


B2 



(Bl+Nl) 
(B2+N1+N2) 



The first 7 instructions are used to set the addresses of 
locations Yl and Y2. The first such address (of Yl) must 
be set to "BL^CKl+nj" and the second (of Y2) must be set to 

BL0CK2+n 1 +no if the first word in BL0CK1 is to go after 
the last word in BL0CK2. 

(Refer to the book for the continuation of the example.) 

( R ) (366.8 - 367.9) — — 



Example 17.11 Write a program that (l) reads three 
blocks of data (with no more than 2500 numbers in each) 
from tape F, placing them in blocks starting at LIST, 
TABLE, and DIGITS, (2) combines these into one larger block 
at DIGITS, (3) places in a new block at NUMBRS all positive 
numbers from this block that are less than 1000, and (4) 
then prints out the list of such numbers on tape G. The 
number of words in each of the three records on tape appears 
in a three-word record at the start of the tape. 

After the three blocks are read in, they are combined 
at DIGITS. In order to add the third block (TABLE) the 
size of the combined blocks at DIGITS and LIST must be com- 
puted. The total size of the combined blocks is needed for 
the loop within which all positive numbers less than 1000 
are stored in NUMBRS. As each number is stored in that 
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block, the C(XR2) is decreased by 1; XR2 is used as a 
pointer to the next available location in the block at 
NUMBRS. Finally, the number of words in NUMBRS is placed 
in SZ4 and used in the PRTBLK macro-instruction. In the 



program, note that 


the tnree-wora 


record wi±± De reaa n 


SZ1 throui 


£h SZ1+2, 


i.e . , into SZ1. 


, SZ2, and SZ3. 


Locn. 


Oper. 


Var. Field 






READBK 


SZ1, THREE, F 


Read 3-word record 




READBK 


LIST,SZ1,F 






READBK 


TABLE, SZ2,F 






READBK 


DIGITS, SZ3,F 






M0VBLK 


LIST, SZ1, DIGITS, SZ3 




CLA 


SZ1 


Form size of 2 blocks 




ADD 


SZ3 






ST0 


SUMSZ 






ADD 


SZ2 


Form size of 3 blocks 




ST0 


T0TLSZ 






M0VBLK 


TABLE, SZ 2, DIGITS, SUMSZ 




AXT 


7500,2 






CLA 


XDIGIT 


Set address 




ADD 


T0TLSZ 






STA 


M0RE 






LXA 


T0TLSZ,1 




M0RE 


CLA 


**,1 


(DIGITS+totlsz) 




TMI 


N0LIST 


Place pos. numbers 




CAS 


TH0US 


smaller than 1000 




TRA 


N0LIST 


in NUMBRS 




TRA 


N0LIST 






ST0 


NUMBRS +7 5 00, 2 






TXI 


*+l,2,-l 




N0LIST 


TIX 


M0RE,1,1 






SXA 


TEMP, 2 


Determine count 




CLA 


X7500 


of numbers stored 




SUB 


TEMP 






ST0 


SZ4 






PRTBLK 


NUMBRS, SZ4,G 






HTR 







(Cont'd. ) 
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Locn. Oper. Var. Field 



SZ1 






SZ2 






SZ3 






SZ 






SUMSZ 






T0TLSZ 






TH0US 


DEC 


1000 


THREE 


DEC 


3 


XDIGIT 






TEMP 






LIST 


BSS 


2500 


TABLE 


BSS 


2500 


DIGITS 


BSS 


7500 


NUMBRS 


BSS 


7500 



(R) (368.4 - 370.7)' 



Example 17.12 Write macro-instructions to simulate 
100 index registers, using the CLA instruction as a 
specific illustration. 

Normal assembler instruction names, e.g., CLA, ADD, 
and SUB, are to be used by the programmer in the usual 
manner, but with tags as high as 100. Since an Instruc- 
tion such as 

CLA LIST, 68 

would be misinterpreted by the assembler under normal 
circumstances, the symbol CLA must refer to a macro- 
instruction. This macro-instruction must produce the 
proper coding for the simulation of XR68. 

In order that the assembler operation codes be inter- 
preted as macro-instructions, new names must be assigned 
to the machine instructions. This may be done by a series 
of pseudo-operations as follows: 

Locn. Oper. Var. Field 

CLA. 0PSYN CLA 

ADD. 0PSYN ADD 

SUB. 0PSYN SUB 

• • • 

Now the original names (in the variable field above) may 
be used as macro-instruction names. 
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7 Index registers, 93 will be 
XR100 will be simulated by- 
block, starting at SIMXR. Thus, 
, 100, will be simulated by loca' 



Since the 7094 has 
simulated. XR8 through 
93 words in memory in a 
XRJ, where J = 8, 9, ... 
tion SIMXR+J-8. 

Consider the simulation of the CIA instruction. One 
of three coding sequences must be assembled, conditional 
on the tag: (l) an untagged CLA instruction is required 
if no tag is present; (2) a normal, tagged CLA instruction 
is required if a tag from 1 to 7 is given; and (3) a 
coding sequence as follows is required if a tag from 8 
to 100 is given: the instructions assembled must, when 
they are executed later, modify the CLA operand address by 
the contents of the simulated XR. These conditions are 
depicted in Pig. 17.1 in the book. 

Conditional-assembly techniques are required. Two 
decisions must be made. The test for a tag can be made 
with the IFF test for a created symbol; if the tag is 
omitted, a created symbol can be produced. The test for 
the "size" of the tag can be made with another form of the 
IFF pseudo-operation. Because IFF affects only thefollowing 
instruction, an inner macro-call is required, since several 
instructions must be assembled conditionally. 

The instructions assembled in the event that a tag 
from 8 through 100 is given provide for saving and 
restoring XR1, which is used as the actual index register, 
for executing the CLA instruction, and for loading XR1 
with the C( SIMXR+J-8). 

The macro-definitions are 



Locn. Oper. 



CLA 



Var. Field 



CLAM 



CLAN 



MACR0 


A,T 




IFF 


1,/CRS/T 




CLA. 


A 


Assemble if no tag 


IFF 


0,/CRS/T 




CLAM 


A,T 


Assemble if tag 


END 






MACR0 


A,T 




IFF 


T/8,1 




CLA. 


A,T 


Assemble if tag is 


IFF 


T/8 


1 through 7 


CLAN 


A,T 


Assemble otherwise 


END 






MACR0 


A,T 




SXA. 


SAVX1,1 


Save XR1 


LXA. 


SIMXR+T-8,1 




CLA. 


A,l 




LXA. 


SAVX1,1 




END 
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The use of a normal machine operation code as a macro- 
instruction name reassigns that name to the latter function 
and deletes its use as a machine operation for that 
assembly. Thus CLA now refers only to the macro-instruc- 
tion. 

Note that operation codes ending in "." are used when 
a machine instruction is to be assembled. The following 
three macro-calls lead to the accompanying expnasions: 





Oper. 


Var. Field 


1. Call: 


CLA 


SWITCH 


Expansion : 


CLA. 


SWITCH 


2. Call: 


CLA 


LIST, 5 


Expansion : 


CLA. 


LIST, 5 


3. Call: 


CLA 


NAME, 32 


Expansion: 


SXA. 
LXA. 
CLA. 
LXA. 


SAVX1,1 
SIMXR+32-8,1 
NAME,1 
SAVX1,1 



Other instructions are similarly simulated, but a 
different coding structure is needed for such instructions 
as LXA, TXI, and TSX. To simulate LXA, e.g., we need only 
place a number in the proper SIMXR word (if the tag is 8 
or greater); it is not necessary to use a real index 
register in the process. Similarly, to simulate TXI, we 
need only increase the proper SIMXR word contents. 



(R) 



Locn. 


Oper. 


Var. Field 


HALT 


MACR0 

HTR 

END 




ADD. 


0PSYN 


ADD 


ADD 


MACR0 


A,B,C 




CLA 


A 




ADD. 


B 




ST0 


C 




END 
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Locn. 


Oper. 


Var. Field 


SUBT 


MACR0 


A,B,C 




CLA 


A 




SUB 


B 




ST0 


C 




END 




MULT 


MACR0 


A,B,C 




LDQ 


A 




MPY 


B 




STQ 


C 




END 


* 


DIV 


MACR0 


A,B,C 




LDQ 


A 




PXA 


0,0 




LLS 







DVP 


B 




STQ 


C 




END 




M0VE 


MACR0 


A,B,C 




AXT 


B-A+1,4 




CLA 


B+1,4 




ST0 


C+B-A+1,4 




TIX 


*-2,4,l 




END 




JUMP 


MACR0 


A 




TRA 


A 




END 




JUMPPM 


MACR0 


A,B,C 




CLA 


A 




TPL 


B 




TMI 


C 




END 
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( R ) _ (372.4 - 373.2) 

Example 17.13 ' The first technique might use a PRINTL 
macro-instruction which provided a printout (probably with 
a standard format) of an indefinite number of specified 
words (a list), as in 

PRINT L ( NUMBR , W0RD , W0RD+3 , XYZ ) 

The structure of PRINTL depends on the form of the call 
for the monitor input-output subroutine. . It can be 
inserted at any desired points in the program. 

The second technique can be exemplified by a procedure 
that automatically supplies a printout of the contents of 
the referenced location in any ST0 instruction. To accom- 
plish this, the operation ST0 must be defined as a macro- 
instruction. Another printing macro-instruction, PRINT, 
is used. 

Locn. Oper. Var. Field 



ST0. 


0PSYN 


ST0 


ST0 


MACR0 


A,T 




IFF 


1,/CRS/T 




ST0. 


A 




IFF 


0,/CRS/T 




ST0. 


A,T 




PRINT 


A,T 




END 





To allow for the presence or absence of a tag, the IFF 
pseudo-operations are used. Here, we shall assume that a 
tag may also be present on the PRINT call. 

(r) -_ (373.6 - 374.8) 



Example 17.14 Write the TURN0N and TURN0F macro- 
instructions described. 

To accomplish this, ST0 must be used for both the 
normal machine instruction (when no printing is desired) 
and for the macro-instruction (when printing is desired). 
The TURN0N and TURN0F macro-instructions have the function 
of the switching the significance (and interpretation) of 
the word ST0 back and forth between these two, the machine 
instruction and the macro-instruction. In this way the 
printing feature is "turned on and off." 
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The TURN0N and TURN0P macro-instructions have no 
arguments; their calls appear to be pseudo-operations. 



Locn. 


Oper. 


Var. Field 


ST0. 


0PSYN 


ST0 


ST0.. 


MACR0 


A,T 




IFF 


1,/CRS/T 




ST0. 


A 




IFF 


0,/CRS/T 




ST0. 


A,T 




PRINT 


A,T 




END 




TURN0N 


MACR0 




ST0 


0PSYN 
END 


ST0. . 


TURN0F 


MACR0 




ST0 


0PSYN 


ST0. 



A short program, using these features, follows: 
Locn. Oper. Var. Field 



QQQ 



TURN0N 




AXT 


200,1 


CLA 


LIST+200, 1 


ADD 


SIX 


ST0 


LIST+200, 1 


TIX 


QQQ, 1,1 


TURN0F 




CLA 


NUMBER 


ST0 


TABLE 


TZE 


0UT 



This sequence expands into the following coding 
(macro-calls are not given): 



QQQ 



AXT 

CLA 

ADD 

ST0. 

PRINT 

TIX 

CLA 

ST0. 

TZE 



200,1 

LIST+200,1 

SIX 

LIST+200,1 

LIST+200,1 

QQQ,1,1 

NUMBER 

TABLE 

0UT 



119 



(R) 



(375.3 - 376.2)- 



Example 17.15 
(l) at every third 
third ST0 execution 

1. The ST0 ma 
modified to provide 
macro-instruction ( 
counter, increased 
called. The IFF va 
earlier, in Section 
Assembly of PRINT o 

Locn. Oper. 



Q 


SET 





ST0. 


0PSYN 


ST0 


ST0 


MACR0 


A,T 




IFF 


1,/CRS/T 




ST0. 


A 




IFF 


0,/CRS/T 




ST0. 


A,T 


Q 


SET 


Q+l 




IFF 


Q-Q/3*3,l 




PRINT 


A,T 




END 





Write coding so that printing occurs 
ST0 instruction, and (2) at every 

• 

cro-instruction of Example 17.13 is 

for conditional assembly of the output 
PRINT). The symbol Q is used as a 
by 1 each time the macro-instruction is 
riable field Is similar to one given 
17.1, under "Conditional Assembly." 
ccurs every time Q is a multiple of 3. 

Var. Field 



2. Now counting must be done when the program is 
executed. To achieve this, a sequence of coding must be 
included that calculates the function Q-Q/3*3 where the 
contents of the counter is Q (when the program is 
executed). 



N0PRNT 



CIA 


CNTR 


ADD 


0NE 


ST0 


CNTR 


XCA 




PXA 


0,0 


DVP 


THREE 


MPY 


THREE 


TNZ 


N0PRINT 


PRINT 


A.T 



Q+l to Q, 



Q/3*3 

Test for Q-Q/3*3 



= 



It is easier to compute the remainder directly, but this 
approach is taken as a parallel to method 1. 
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(R)~ 



Example 17. 16 Write 
cause a single word to be 
call Is to be as follows: 



■(376.5 - 378.4)- 



a macro-instruction that 
assembled, containing n.' 



will 
The 



FACTL 



N 



where N represents an integer to be supplied. 

Two nested macro-instructions are used. In the inner 

macro-instruction (FACTLX) the actual recursion occurs. 

The macro-instruction repeatedly calls itself, each time 

computing one more factor in nj , as follows: l'2'3''-'n. 

At the same time, a "counter" Q, is used for loop control; 

the counter runs from 1 to n. An IFF is used to control 

the recursionj when the counter contains the value n, the 

process stops. 

The outer macro-instruction is used to initialize both 

the counter Q (at 0) and a partial product F (at l). If n 

is given as 0, assembly of the FATCLX macro-call is sup- 

n.' ) is set equal to 1. After 
n £ 0), the word containing n. 1 is 
of the process appears in Fig. 17.2 



pressed and F (which is 
FACTLX computes nj (for 
assembled. A flowchart 
in the book. 



Locn. Oper. 



Var. Field 



FACTL 


MACR0 


N,Z 


Q 


SET 





F 


SET 


1 




IFF 


N 




FACTLX 


N 


Z 


DEC 
END 


F 


FACTLX 


MACR0 


N 


Q 


SET 


Q+l 


F 


SET 


F*Q 




IFF 


Q-N 




FACTLX 


N 




END 
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As an example of how this works , consider the call 

PACTL 4 

Following Is a list of most of the pseudo-operations as 
they are generated in the assembly process during the 
recursive calling of FACTLX. The SET and IFF pseudo- 
operations are listed in the order of their generation: 

Expansion of FACTL: Q SET 

F SET 1 
IFF 4 

Expansion of FACTLX (1st time): Q SET 1 

F SET 1 
IFF -3 

Expansion of FACTLX (2nd time): Q, SET 2 

F SET 2 
IFF -2 

Expansion of FACTLX (3rd time): Q SET 3 

F SET 6 
IFF -1 

Expansion of FACTLX (4th time): Q, SET 4 

F SET 24 
IFF 

Expansion of FACTL: ..001 DEC 24 



Chapter 18 
INTERPRETERS AND SIMULATION 



( R ) (387.5 - 391.2) 

AN INTERPRETIVE PROGRAM 

The following instruction is useful in Example 18.2. 

LOAD COMPLEMENT OP ADDRESS IN INDEX (LAC Y) (+0535); 
2 cycles. The 2's complement of the C(Y)2i-35 replaces 
the contents of the specified index register. The C(Y) 
is unchanged. 

Example 18.2 Refer to the book for the introduction 
to an analysis and flowchart of this program. That mater- 
ial applies here with one modification. The complement of 
the C( 10000) is placed in XR2, rather than the C( 10000), 
as noted at 398.3- This is necessary because 7090 index 
registers work "by decrementing. Notice that 100008 must 
he added to addresses in the program before they are used 
to set addresses or SIMAR, as in the M0VE, JUMPSR, and 
JPPMSR routines. 



Locn. 


Oper. 


Var. Field 




LAC 


/0/1OOOO.2 




CLA 


/0/1OOO1. 




ST0 


SIMAR 


NEXT 


CAL* 


SIMAR 




ANA 


AMASK 




ARS 


18 




STA 


ADDRA 




CAL* 


SIMAR 




ANA 


BMASK 




ARS 


9 




STA 


ADDRB 




CAL* 


SIMAR 




ANA 


CMASK 




STA 


ADDRC 



Place compl. of C( 10000 ) 

in XR2 
Place starting addr in 

SIMAR 
Obtain A-address by 

masking out rest of 

instruction; place in 

ADDRA 
Obtain B-address... 



Obtain C-address. . . 



(Cont'd. ) 
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123 



Locn. Oper. 

CAL* 
ANA 
ARS 
PAX 
TRA* 
SUBRT 



RETURN CIA 
ADD 
ST0 
TRA 



HALTSR 
ADDSR 



SUBTSR 



MULTSR 



DIVSR 



M0VESR 



HTR 

CLA* 

ADD* 

ST0* 

TRA 

CLA* 

SUB* 

ST0* 

TRA 

LDQ* 

MPY* 

STQ* 

TRA 

LDQ* 

PXA 

LLS 

DVP* 

TRA 

CLA 

SUB 

ADD 

PAX 

ADD 

ADD 

STA 

SUB 

ADD 

STA 



Var. Field 

SIMAR 

0PMASK 

27 

0,1 

SUBRT+7,1 

JPPMSR 

JUMPS R 

M0VESR 

DIVSR 

MULTSR 

SUBTSR 

ADDSR 

HALTSR 

SIMAR 

0NE 

SIMAR 

NEXT 



ADDRA 

ADDRB 

ADDRC 

RETURN 

ADDRA 

ADDRB 

ADDRC 

RETURN 

ADDRA 

ADDRB 

ADDRC 

RETURN 

ADDRA 

0,0 



ADDRB 

RETURN 

ADDRB 

ADDRA 

0NE 

0,4 

ADDRA 

REL0CN 

MV1 

ADDRA 

ADDRC 

MV2 



Obtain operation code 



Place op. code in XR1 
Transfer on op. code 
7 
6 

5 
4 

3 
2 

1 

Return point after non- 

tra. execution; modify 

SIMAR by 1 



Form size of block: 
B-A+l 

Place size in XR4 

Add 10000 for relocation 



(Cont'd. ) 
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Locn. Oper. 



MV1 
MV2 



JUMPSR 



JPPMSR 



CIA 

ST0 

TIX 

TRA 

CLA 

ADD 

STA 

TRA 

CIA* 

TPL 

CLA 

ADD 

STA 

TRA 

CIA 

ADD 

STA 

TRA 



SIMAR 

AMASK 0CT 

BMASK 0CT 

CMASK 0CT 

0PMASK 0CT 

ADDRA 

ADDRB 

ADDRC 

0NE DEC 

REL0CN 0CT 



TR1 



(M) 



Var. Field 

**,4 
■** 4 

*-2,4,l 

RETURN 

ADDRA 

REL0CN 

SIMAR 

NEXT 

ADDRA 

TR1 

ADDRC 

REL0CN 

SIMAR 

NEXT 

ADDRB 

REL0CN 

SIMAR 

NEXT 



000777000000 

000000777000 

000000000777 

007000000000 

**,2 

**,2 

**,2 

1 

10000 



(B+l, which is A+size) 
(B-A+C+l, which is 
C+size) 

Fetch new address for 
SIMAR 



Test sign of C( ADDRA) 
Set SIMAR to C-address 

Set SIMAR to B-address 



Simulated AR 
Masks 



Registers for the 3 
addresses 



(391.7 - 394.8) 



(The material in 391.7 - 394.8, though it applies to 
a program written for the DELTA 63, applies to a study of 
interpreters on the 7090 as well. The concepts are 
general, and a study of the material can be understood 
almost entirely even if details on coding are not.) 



(R) 



■(395.3 - 395.10)' 



Example 18.4 Write routines for a self -interpreter 
for the 7090 to simulate the instructions TXI, TSX, and 

TIX. 

In the self-interpreter, the address, tag, and 
decrement portions of the instruction being executed 
interpretively are placed in ADDR, TAG, and DECR, respec- 
tively (in the address fields). Then control goes to the 
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individual routines. In addition, the SETTAG routine is 
executed at that time. Its purpose is to set into a 
memory location the tag of the instruction being executed' 
the address field of that word contains the address ' 
SIMXRfl. SIMXR heads a block of seven words ; SIMXR+J-1 
represents the simulated XRJ (allowing for seven index 
registers). An indirect address reference to that word 
thus references the proper simulated XR. The 15 rightmost 
bits of the simulated XR represent the contents of that 
XR. 

The routine for setting the index-register address: 
Locn. Oper. Var. Field 



SETTAG 



REPXR 
BSIMXR 



CLA 
ADD 
ST0 



BSIMXR 

TAG 

REPXR 



SIMXR- 1 



(SIMXR+J-1) 



In the following routines, SIMAR, RETURN, and NEXT 
represent the same instructions as in Example 18.2* 
control passes to RETURN if a transfer is not executed- 
control passes to NEXT if a transfer is executed. The' 
STA instruction is used to store a new value. in the 
simulated XRs; by so doing, any arithmetic performed on 
the XR is effectively done modulo lOOOOOg as required. 



Oper. 



Var. Field 



TXI: 



CLA* 

ADD 

STA* 

CIA 

ST0 

TRA 



REFXR 

DECR 

REFXR 

ADDR 

SIMAR 

NEXT 



Modify XR 
"Transfer" 



TSX: 



CLA 

CAS 

TRA 

TRA 

TRA 

SUB 

STA* 

CLA 

ST0 

TRA 



SIMAR 

DECR 

*+3 

RETURN 

RETURN 

DECR 

REFXR 

ADDR 

SIMAR 

NEXT 



Form 2's complement 

with decrement 
C(XR) gr. than deer. 
C(XR) equal to deer. ; 

"go on" 
Modify C(XR) by decrement 

"Transfer" 



The last three instructions in these three routines are 
identical and could be combined. 



Chapter 19 
PROGRAM DEBUGGING AND TESTING 



( S ) (At 402.3) " 

ASSEMBLER AIDS 

In addition to the errors listed in the book, the PAP 
assembler also flags these errors: 

6. Illegal indirect addressing. 

7. Improper tag and decrement. 

8. Errors in other pseudo-operations. 
9'. Relocation errors. 

( R ) (402.4 - 403.8) 

Example 19. 1 The following letters are used by the 
FAP assembler to flag errors: 
U - undefined symbol 
M - multiply-defined symbol 

- illegal operation code 

G - error in data-generating card, such as 0CT or DEC 
A - improper address or omitted address where required 
T - improper tag or omitted tag where required 
D - Improper decrement or omitted decrement where 
required 

1 - Illegal indirect addressing 

P - illegal use of pseudo-operation 
R - relocation error. 

Other flags are given, under appropriate conditions 

The program below, taken from Example 8.7, is recoded 
with several errors that are flaggable by the assembler. 
The octal listing Is given with error flags. Note that 
portions of octal words are omitted where errors are 
present. 
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Location 

00200 

00201 

T 00202 

00203 
U 00204 
00205 

00206 

00207 
M 00210 

00211 
UD 00212 

00213 



Contents 



+0560 00 
+0774 00 
+0754 00 
+0221 00 
00000 
+0734 00 

+0500 00 

+0400 00 

+0501 00 

+2 00000 
+0000 00 



1 04147 
03720 
00000 


00000 

2 00000 
2 00227 
00214 
2 00227 

00201 
00000 



Location 
NEW0NE 



M 



M 



00214 
00215 
00227 
04147 



+000000000001 



+0 00000 00001 



0NE 

CTABLE 
LIST 
0NE 



Oper. 

0RG 
LDQ 
AXT 
PXA 
DVP 
XAC 
PAX 
CLA 
ADD 
ST0 
TIX 
HTR 

DEC 
BSS 
BSS 
PZE 
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Var. Field 

/0/2OO 

LIST+2 000,1 

2000 

0,0 

TEN 

0,2 

CTABLE+10, 2 
0NE 

CTABLE+10,2 
NEW0NE,I 



1 

10 

2000 
1 



The errors made were as follows: (l) omission of the 
tag in the AXT Instruction; (2) failure to define the 
symbol TEN"; (3) mispunching of XCA as "XAC"; (4) multiply 
defining the symbol "0NE M ; (5) mispunching of the tag "l" 
/!\ ln TIXj thls a PP ears as an undefined symbol ( ff l")- 
(b) omission of the decrement in the TIX instruction. Note 
that two flags appear on one line; two errors were made 
in one symbolic instruction. 

In the event that part or all of a word cannot be 
assembled because of an error, the FAP assembler sometimes 
leaves blanks or, in the case of a multiply-defined symbol 
assembles the earlier address. The resulting object deck ' 
will have zeros punched where blanks appear in the listing 
Thus, at location 00204, the following word is assembled 
in the deck: 

022100000000 

If certain fatal errors occur in a program, an object deck 
is normally not produced and the program is not run at that 
time; such errors include those with flags U, M, and 
Other errors, called nonfatal , do not inhibit deck punching 
or immediate execution; these include those with flags A, 
T, and D. These latter "errors" may be intentional and the 
assembler permits a run. Optionally, a deck may be punched 
regardless, if appropriate indications is given. PAP pro- 
vides, with the listing, a list of undefined and multiply- 
defined symbols. 

The errors made .in this example,, like all coding errors 
can be corrected by the use of correction cards, described 
in Section 11.1, or by reassembly. 
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The following octal correction cards will correct the 
errors made in the program. They would be applied to the 
object deck. 



Locn. 


Oper. 


Var. Field 


00202 


0CT 


077400103720 


00204 


0CT 


022100020000 


00205 


0CT 


013100000000 


00212 


0CT 


200001100201 


20000 


0CT 


000000000012 



Most of these cards are easily understandable. Note that 
a word containing 10 (128) has been established at loca- 
tion 20000, a location outside the program. 



(R)' 



(403.9 - 404.2)- 



Example 19.2 The symbol reference table for the pro- 
gram coded in Example 8.7 is as follows: 



Locn. 


Symbol 


References 




00214 


0NE 


00210,00214 




04147 


TEN 


00204, 04147 




00227 


LIST 


00201,00227 




00215 


CTABLE 


00207,00211, 


00215 


00201 


NEW0NE 


00201,00212 





( R ) (406.4 - 406.7) 

HELP AT THE CONSOLE 

Example 19.3 Refer to the book for 
analysis of this problem. There are, of 
three index registers, in the 7090,- this 
the description given. The instructions 
tion are the following: 



a description and 
course, only 
will not effect 
under considera- 



TRA 
TRA 



02123,2 
02234,4 



(R) (409.4 - 409.10) 

THE USE OF DUMPS 

In the 7090 a special trapping feature is provided. 
If bits S, 1, and 2 of an instruction being executed con- 
tain the bits 1, 0, and 1, respectively, the instruction 
is interpreted as STR: 
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STORE LOCATION AND TRAP (STR); 2 cycles. The loca- 
tion of this instruction, plus one, replaces positions 21- 
35 of location 00000. The computer then takes its next 
instruction from location 00002. The contents of posi- 
tions 3-35 of this instruction are not interpreted. 

Through the use of STR, the monitor system is able to 
gain control. As the program deck is loaded, the SNAP 
cards are also loaded. As these are encountered by the 
monitor, the information on them is stored within the 
snapshot routine. A snapshot table is established with a 
list of addresses where snapshots are requested and with 
other appropriate information. The monitor places the STR 
prefix in bits S, 1, and 2, after saving the instructions' 
original prefixes. 

During the running of the program, when control passes 
to an instruction containing an STR prefix, a trap occurs 
and control passes to 00002. At that location, a transfer 
instruction sends control to the snapshot routine. There 
a search is made of the snapshot table, and if a dump was 
requested at the address in location 00000 (from where 
control just came), the dump is given.* Then the instruc- 
tion with the STR prefix must be executed. This is done 
remotely, within the monitor, where the proper prefix is 
combined with the other 33 bits of the instruction so that 
execution can occur. Finally, control returns to the pro- 
gram being run so that it may continue at the point from 
which control left it. 

To assist the programmer when his program unintention- 
ally sends control outside the block of executable instruc- 
tions, the monitor, just prior to loading a program, places 
STR prefixes throughout memory (except for the monitor 
area). Programs loaded into memory of course write over 
some of these STR's, but the areas not so covered retain 
them,* areas set aside by BSS pseudo-operations retain their 
STR's. If, then, control passes to a location outside the 
program (or possibly to within a block of data), a trap 
occurs and the monitor, recognizing the fact that no snap- 
shot was requested at that location, stops the program, 
indicating where control went erroneously. 

( R ) (413.1 - 413.9) 



THE USE OP MACRO-INSTRUCTIONS 

Example 19.4 Write a short program containing a loop 
in which a debugging macro-call is placed 



^Actually, 00000 contains one more than that address. 
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The program: 



Locn. 


Oper. 


Var. Field 




AXT 


100,1 


START 


CLA 


SUM 




ADD 


NUMBRS+100, 1 




ST0 


SUM 




PRTBLK 


0, SUM, SUM, UNTIL, 5 




TIX 


START, 1,1 




HTR 





The resultant printout, which merely shows the contents of 
SUM, might appear as follows: 

000000000010 
000000000034 
000000000055 
000000000067 
000000000102 

The next example shows a more complex printout, the 
dump of two different blocks. 

Example 19.5 Consider Example 8.6, which sorts a 
list of 1000 numbers into two blocks, P0SLST and NEGLST. 
Assume that the following two cards are inserted in the 
program immediately preceding the instruction at M0D: 

PRTBLK D,P0SLST,POSLST+3,UNTIL,4 
PRTBLK D, NEGLST, NEGLST+2, UNTIL, 3 

The request here is for a decimal output, assumed to be 
given with three or four words to a line. The resultant 
output might be as follows: 



+23498 






















+23498 











-232 










+23498 











-232 


-86001 







+23498 


+77 









Note that four dumps of P0SLST (four numbers on a line) 
were given, while three dumps of NEGLST (three numbers on 
a line) were given. 
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(R). 



(414.3 - 415.3) 



Example 19.6 Write a macro-Instruction that will 
provide the following information, all in octal, when 
control passes to it: 

1. The C(AC) and the C(MQ): 

2. the contents of the three 

3. the contents of any three 
memory; 
the contents of a block of any size in memory, 

call is: 



index registers; 
specified words in 



4. 
A typical 



DUMP W0RD, XXX, SUM, LIST, LIST+10 



which means "Dump the AC, the MQ, the three XRs, locations 
W0RD, XX, and SUM, and the block from LIST through LIST+10." 

In the macro-instruction that follows, the index 
registers, the AC, and the MQ are first saved and subse- 
quently restored. The PRINTL macro-instruction of 
Example 17.13 is used to print a list. A new macro- 
instruction, PRINTB, is used to print a block. 



Locn. 


Oper. 


Var. Field 






DUMP 


MACR0 


A,B,C, 


L,M 






SXA 


Q,l 




Save XRs 




SXA 


Q+1,2 








SXA 


Q+2,4 


•*?» 






SLW 


Q+3 






These 3 instructions save 




ARS 


36 




>■ 


all 38 bits of the AC 




ST0 


Q+4 


J 








STQ 


Q+5 




Save MQ 




PRINTL 


(Q,Q1, 
(A,B,C 


Q2) 


Print XRs 




PRINTL 





Print 3 words 




PRINTB 


L,M 




Print block 




CLA 


Q+4 


"\ 


These 3 instructions 




ALS 


36 


I 


restore the complete AC 




0RA 


Q+3 


J 






LDQ 


Q+5 








LXA 


Q,l 








LXA 


Q,l,2 








LXA 


Q+2,4 








END 








Q 


• • • 

BSS 


6 






N3777 


0CT 


3777777777 


11 





INDEX 



Accumulator 2, 68 

Addition 2-5, 73 

Address modification 19-20 
Alphanumeric informa- 
tion 61-62 
coding 79-80 
converting 90 
Arithmetic accumulator 68 
Arithmetic instruc- 
tions 3, 6 
Assembler aids 126 
Assembler language 14 
Assembly listing 16 

BCD information 61-62 

BCD pseudo-operation 63 

BCI pseudo-operation 62 

BES pseudo-operation 44 

Block operations 

43-45,110-113 
Branching 46-50 

Card punch 23-24 

Card reader 23 

Cards, loading 25 

format 15 

Closed subroutines 53-60 
Coding alphanumeric 

information 79-80 

Conditional assembly99-102 
Console help 128 

Conversion 90-94 

integers 86-87 

Convert instructions90, 93 
Correction cards 

6l, 127-128 
Created symbols 105 



Data, loading 


25 


Data channel 


1 


Data instruction 


20 


Data-moving instructions 




3, 6 


Data processing 


90-96 


Debugging 


126-131 


DEC pseudo -ope rati 


on 72 


Decisions 


11-13 


Decrement 


30 


Division 


5-9, 73 


Dumps 


128-129 


Dyna ml c s 1 ra ge 




allocation 


65-66 


Error flags 


126-127 



Factorial, computation 
by macro-instruc- 
tions 120-121 
FAP language 14-16, 52 
Fixed branching 46-47 
Fixed -point numbers 2 
Floating-point numbers 2 
Floating-point operations 

72-73 

G0 pseudo-operation 110 



Histogram 



41-42 



IFF pseudo-operation 

99-100, 107 
Indexing instructions 

29-31, 35, 40-41 
Index registers 28-44 

simulation of 100 

113-115 



133 



134 

Indirect addressing 

43-44, 57-58 
Input-output operations 

61-63 
Instruction format 

15, 28-29 
Instruction word 2 

Integers 2 

conversion 86-87 

ordering 88-89 

Interchange sort 94-95 

Interpreters 122-125 

IRP pseudo-operation 103 

Largest number, deter- 
mination 45-46 
Linkage, subroutine 53 
Listing, assembly 16 
Lists 85-86 
Logical accumulator 68 
Logical instructions 

20-21, 66-68, 75-76, 80 
Loops 18-27 

Macro-instructions 

52, 97-121, 129-130 
Magnetic tapes 1 

information 22 

reading and writing 

22-24 
Masking 68 

Memory 1 

Memory space, minimizing 

64 
Merging 95-96 

Monitor program 6l, 63 

Multiplication 5-9, 73 
Multiplier-quotient (MQ) 
register 2 

Nested macro-instruc- 
tions 109-110 
Nim 82-85 
Nonnumerical problems 

75-89 
Numerical problems 72-73 

Octal correction cards 

61, 127-128 
Open subroutines 51-52 

0PSYN pseudo-operation 

113 



Ordering Integers 

88-89, 94-95 

Packing 69-71, 79 

Pattern detection ' 87-88 
PMC pseudo-operation 98 

Pointers 39 

Polynomial evaluation 

8-10, 14, 21-22, 35 
Printer, line 24 

Printing macro-instruc- 
tions 117-119, 121 
Program loops 18-27 

Program planning 64-71 

Program testing 126-131 

Pseudo-operations 15, 44, 
62-63, 72, 93-94, 98, 113 
macro-instruction 97, 
99-100, 103, 107, 110 
Push-down lists 42-43 



Qualifiers 



16 



Reading out results 26-27 
Reading tapes 22-24 

Recursive macro-instruc- 
tions 120-121 
Remote assembly 107-108 
Repetition in coding 

102-104 
RMT pseudo-operation 107 
Running time of instruc- 
tions 64 

Sense indicator register 

81-82 
Sequencing in memory 45-50 
Shifting 66-68 

Simulation, index 

registers 113-115 

3-address computer 

115-116 
Skip instructions 46 
Sorting, by signs 38-39 

see also "Ordering" 
Storage allocation 65-66 
Structure of computers 1 
Subroutines 51-60 

linkage 53 

Subtraction 2-4, 73 



Summation of numbers 

19-20, 33-34 
subroutines 

51-52, 55-57 
Symbolic coding 14-17 
Symbolic expressions, 

analysis 76-78 

Symbol reference table 128 



Table-look-at 40-42 

Tag 28 

Tapes 

see "Magnetic tapes" 
Testing of programs 

126-131 
Test instructions 46 

Three-address computers, 
simulation 
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with macro-instruc- 
tions 115-116 
with interpreter 

122-124 
Time-space balance 40 

Transfer instructions 10 
Transfer of control 53-54 
Transfer of information 

54-55 
Trapping feature 129 



Unpacking 



69-71 



Variable branching 47-49 
VFD pseudo-operation 93-94 



Words in memory 
Writing tapes 



1-2 
22-24 



INDEX TO INSTRUCTIONS 



ADD 


Add 


3 


ALS 


Accumulator left shift 


66 


ANA 


"And" to accumulator 


68 


ANS 


"And" to storage 


68 


ARS 


Accumulator right shift 


66 


AXT 


Address to index true 


29 


CAL 


Clear and add logical 


20 


CAQ 


Convert by addition to the AC 


90 


CAS 


Compare AC to storage 


45 


CIA 


Clear and ADD 


3 


CLM 


Clear magnitude 


6 


COM 


Complement magnitude 


75 


CRQ 


Convert by replacement from MQ 
"Exclusive or 1 ' to the AC 


90 


ERA 


80 


PAD 


Floating add 


73 


PDH 


Floating divide or halt 


73 


FMP 


Floating multiply 


73 


FSB 


Floating subtract 


73 


HTR 


Halt and transfer 


3 


IIA 


Invert indicators from AC 


82 


LAC 


Load complement address in index 


122 


IAS 


Logical compare AC to storage 


75 


LDI 


Load Indicators 


81 


LDQ 


Load MQ register 


6 


LGL 


Logical left shift 


66 


LGR 


Logical right shift 


66 


LXA 


Load index from address 


?l 


NZT 


Nonzero test 


46 


ONT 


On test for indicators 


81 


ORA 


"Or" to accumulator 


75 


ORS 


"Or" to storage 


75 


PAC 


Place complement address in index 


88 


PAI 


Place AC in indicators 


81 


PAX 


Place address In index 


40 


PBT 


P-bit test 


81 


PXA 


Place index. in address 


4l 


RQL 


Rotate MQ left 


66 


SLW 


Store logical word 


21 


STA 


Store address 


25 
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137 



STI Store indicators 129 

STO Store 3 

STQ Store MQ 6 

STZ Store zero 19 

SUB Subtract 3 

SXA Store index in address 35 

SXD Store index in decrement 35 

TIX Transfer on index 35 

TLQ Transfer on low MQ 94 

TMI Transfer on minus 10 

TNZ Transfer on nonzero 10 

TPL Transfer on plus 10 

TRA Transfer 10 

TSX Transfer and set index 53 

TXH Transfer on index high 31 

TXI Transfer with index incremented 30 

TXL Transfer on index low or equal 30 

XCA Exchange AC and MQ 6 

ZET Zero test 46 



